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