Select Code to Download

$in{$_} =~ s/([\r\n]){2,}/<\/p><p>/g;

$in{$_} =~ s/(?!^<\/p><p>)([\r\n]){2,}/\n<\/p><p>\n/g;