Select Code to Download

#!/usr/bin/env perl

...
        return $str;
    }
}

$c_str[BEL \a BS \b ESC \e FF \f NL \n CR \r TAB \t VT \v BSLASH \\ AP
+OS \' QUOT \" HASH \43 DOLLAR \x24 AT \u0040 TILDE \U0000007e TGs \?=
+ \?/ \?' \?( \?) \?! \?< \?> \?-]
$p_str[BEL \a BS \b ESC \c[ FF \f NL \n CR \r TAB \t VT \x{0b} BSLASH 
+\\ APOS \' QUOT \" HASH 043 DOLLAR \x{24} AT \x{0040} TILDE \x{000000
+7e} TGs # \ ^ [ ] | { } ~]