Select Code to Download

    $s =~ s/$_/$h{$_}/g for keys %h;

abaugher@bannor> cat 989705.pl 
#!/usr/bin/env perl
use Modern::Perl;
...
forloop 9.75e-02/s      --    -96%    -99%
regexpa     2.40/s   2364%      --    -74%
pipes       9.08/s   9213%    278%      --