#!/usr/bin/perl -p
if ($a) {
	s,<br>|</p>,\n,gi;
	s/<.*?>//g;
	s/&gt;/>/g;
	s/&lt;/</g;
	s/&amp;/&/g;
	s/&quot;/"/g;
	s/&nbsp;/ /g;
	s/^\s\s\s+/  /g;
} elsif (/^$/) {
	$a=1;
}