Or if you want to perform this on an arbitrary file

use IO::File;

my $line = -f $file and grep { ... } IO::File->new($file)->get_lines;
[download]

So if $file exists, create a temporary IO::File object and read its contents. Not as robust as the <> solution, but it does perform an open/read/close.
HTH

_________
broquaint