I used to like reinventing the wheel every time... I used to do something like this:

# THIS IS BAD
s/(\s|\ )+/ /g;
s/<(BR|P)>/\n/ig;
s/<.+?>//g;
[download]

Now I just :

use HTML::TokeParser;
[download]