Select Code to Download

#!/usr/bin/perl
use strict;
...
__DATA__
0010+2+O?'Reilly'
012+90+Penguin'

Benchmark: running tp_for, tp_map for at least 2 CPU seconds...
    tp_for:  2 wallclock secs ( 1.92 usr +  0.18 sys =  2.10 CPU) @ 48
+185.71/s (n=101190)
...
          Rate tp_for tp_map
tp_for 48186/s     --    -9%
tp_map 52883/s    10%     --