echo $'three\nshort\nlines' > a;
 perl -we 'open $f, "<", "a"; for(0..3) { $!=10000; $l = <$f>; $s = $!; warn +(defined($l)?$l=~/(.*)/&&qq/"$1"/:"undef"), " $s\n"; }'