How about HTML::Subset or HTML::Subset::Filter?
In reply to Re: RFC: HTML::?Filter ... suggest a name for the beast by BrowserUk in thread RFC: HTML::?Filter ... suggest a name for the beast by Jenda