Help for this page
use strict; use warnings; use 5.010; ... while (my $line = <$INFILE>) { print $line if $line =~ /$pattern/; }
while (<$INFILE>) { }