while (defined(my $record = <$fh>) or ($! and die "reading: $!")) {
    chomp $record;  # remove $/ string
    $record =~ s{ \n }{}xmsg;
    process($record);
    }