..snip.. $line =~ s/\r(?!\n)/ /g;