Select Code to Download

# substitute whole word only
my %w1 = qw{
...
  s{$re2}{ $w2{lc $1} }g; 
  s{$re3}{ $w3{lc $1} }g;
  print $OUT "$_\n";