Select Code to Download

  for $count (0..52) {
    my $pattern = quotemeta($array1{$count});
    $sometext =~ s/$pattern/$array2{$count}/g;
  }

  for $count (0..52) {
   $sometext =~ s/\Q$array1{$count}/$array2{$count}/g;
  }