next unless -f $file;

##</code><code>##

while (my $line = <$file>) {
     # ...
}