Select Code to Download

       $source =~ s/$map{$key}/$key/g;

       $source =~ s/\Q$map{$key}/$key/g;

    for my $line (@source) {
        chomp $line;
...
        }
        print "$tmpline\n";
    }