use IO::File; my $line = -f $file and grep { ... } IO::File->new($file)->getlines;
In reply to Re: Re: quick "open->close" file by esh in thread quick "open->close" file by bugsbunny