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