in reply to regex exercise

TIMTOWTDI:

perl -p0e 's/>(\S[^<]*\n\n[^<]*)</-->$1<--/sg;' example.txt

In Section Seekers of Perl Wisdom