$string = join '', 'a'..'z';
@find = 'a'..'g';
@change = 'h'..'m';
foreach $i (0..$#find)
{
  $string =~ s/$find[$i]/$change[$i]/g;
}