http://qs321.pair.com?node_id=684139


in reply to Re: Matching lines in 2+ GB logfiles.
in thread Matching lines in 2+ GB logfiles.

while ( $window =~ m/([a-zA-Z]{3}\s{1,2}\d{1,2}.*\n)/oigc  ) {
            $line = $1;
            if ( $1 =~ /$re/ ) {
                &$callback($line);
            }
        }

[download]
This is very close to what mscharrer suggested before.

In Section Seekers of Perl Wisdom