This works for me. $string =~ s/(\n|\r|\x0d)//g;