You might want to investigate HTML::TagFilter which makes this pretty easy.

Or simply use HTML::Parser, writing a handler for start/end tags and only outputting ones you want (examples are here).

Update:
If you wanted a list of valid HTML tags, you could look at HTML::Tagset and %HTML::Tagset::isKnown

gav^