$text =~ s!\r?\n\r?!\n!g;