Help for this page

Select Code to Download

Select or download this
```
    $s =~ s/$_/$h{$_}/g for keys %h;
```

Select or download this

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%      --