print IO::File->input_record_separator while $fh->getline;