$! = 0;
$line = <$file>;
if (!defined($line) && $!)
        { die "error readline: $!"; }
elsif (!defined($line))
        { print "reached eof\n"; }
else
        { $line=~/(.*)/; print qq(read a line: "$1"); }