Select Code to Download

$replacements{quotemeta($array1{$count})} = $array2{$count};

my $repl_str = join( '|', keys %replacements);
$someText =~ s/($replstr)/%replacements{$1}/g;