$text =~ s%(?:\r\n){2,}%

%g;