sub translate { my $x = shift; $x =~ s/./x/g; return $x; }