You could have a look at HTML::Strip (and optionally Text::Autoformat) on CPAN, I have used them and I was very happy with the results.