$text =~ s~(\r?\n)+~\n~s;