Select Code to Download

$text =~ s/\Q$_\E/$fixers{$_}/g
   for keys %fixers;

my ($re) = map qr/$_/,
           join '|',
...
      for keys %fixers;
   ...
}

use List::Regexp qw( );

...
      for keys %fixers;
   ...
}