$string =~ s/\r(?=\n)//g;