$s =~ s/(?:\x0D\x0A?|\x0A)/\x0D\x0A/sg;