Select Code to Download

$string = join '', 'a'..'z';
@find = 'a'..'g';
...
{
  $string =~ s/$find[$i]/$change[$i]/g;
}