Help for this page
$text =~ s/\Q$_\E/$fixers{$_}/g for keys %fixers;
my ($re) = map qr/$_/, join '|', ... for keys %fixers; ... }
use List::Regexp qw( ); ... for keys %fixers; ... }