IO::Handle->input_record_separator( ["\r"] );