Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        },
    }
);

Select or download this

__END__
Benchmark: timing 1000000 iterations of m//, tr...
...
        Rate   m//    tr
m//  18315/s    --  -96%
tr  520833/s 2744%    --