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

##</code><code>##

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