Select Code to Download

sub mutate { for (shift) { s/./x/g; } }

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