- or download this
$text =
'Sunt autem quidam e nostris, qui haec
...
$text =~ s|(\n\n+)|</p>\1<p class="later">|g;
print $text;
- or download this
$text = '<p class="first">' . ($text =~ s|(\n\n+)|</p>\1<p class="late
+r">|g) . '</p>';
- or download this
($_='jjjuuusssttt annootthhrer
pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;