Select Code to Download

# Create a hash of codes for substitution
my %directSubs = (
...
while(($a,$b) = each %directSubs){
   $line =~ s/$a/$b/gi;
}