$line =~ tr/\r\n/\0\0/;