Help for this page
# THIS IS BAD s/(\s|\ )+/ /g; s/<(BR|P)>/\n/ig; s/<.+?>//g;
use HTML::TokeParser;