Select Code to Download

foreach my $search (keys %patdic) {
    s/$search/$patdic{$search}/g;
}

#!/usr/bin/env perl

use strict;
...
s/$search/$subst/g;
print;
print "\n";