Select Code to Download

my $uuenc = pack "u", $string;
$uuenc =~ tr/:;"$%&\/()'*#[]<>@`=,.+-/abcdefghijklmnopqrstuvw/;

my $uudec = $uuenc;
$uudec =~ tr/abcdefghijklmnopqrstuvw/:;"$%&\/()'*#[]<>@`=,.+-/;
$uudec = unpack "u", $uudec;