Select Code to Download

$var = 'abc';
$var =~ s/b//; # $var is now 'ac'
...
$var =~ s/b//; # yet another attempt to remove 'b' from 'ac'
$var =~ s/b//; # well, you get the point....
.... etc.

#!/usr/bin/perl -wT

...
Benchmark: timing 50000 iterations of new s, new tr...
     new s: 43 wallclock secs (30.81 usr +  0.02 sys = 30.83 CPU) @ 16
+21.80/s (n=50000)
    new tr:  3 wallclock secs ( 2.06 usr +  0.00 sys =  2.06 CPU) @ 24
+271.84/s (n=50000)