http://www.perlmonks.org?node_id=871821


in reply to filehandle regex

Also learn to open() a file correctly:

open my $INFILE, '<', 'filename' or die "Couldn't open file: $!"; while (my $line = <$INFILE>) { ...