Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $string =~ s/\Q$Search[$i]/$Replace[$i]/g;
}
print "new string: $string\n"