Re: Reading non-blockingly / "awk has to be better for something."

[Grimy]

my $line = '';
my $chr;
$line .= $chr until (($chr = getc($fh)) =~ /[\r\n]/);

Not tested, but it might work, or at least give you an idea.