perl -e '$str = "Hello World\n"; $str =~ s/\r?\n?$/\n/g; print $str;'