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