Select Code to Download

my $entity = join '|', keys %entitylist;
$string =~ s/($entity)/$entitylist{$1}/g;

my %entitylist = ( a => 1, b => 2);
my $string = 'abc';
...
print $string, "\n";
__END__
12c