Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    print OUT "\n" if( $i % 80 == 0);
}
close( OUT );

#!/usr/bin/perl

use Benchmark;
...
                   child_perlizing  => 'child_perlizing()',
                   inline_grepping  => 'inline_grepping()',
                   inline_perlizing => 'inline_perlizing()' } );

Benchmark: timing 1000 iterations of child_grepping, child_perlizing, 
  inline_grepping, inline_perlizing...
child_grepping: 
...
  191 wallclock secs (177.97 usr +  7.64 sys = 185.61 CPU)
inline_perlizing: 
  66 wallclock secs (59.68 usr +  1.19 sys = 60.87 CPU)