#!/usr/bin/perl -w
use HTML::Scrubber;
use strict;
my $html = q[
a => link
br =>
b => bold
u => UNDERLINE
];
# only allow the following tags
my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] );
print $scrubber->scrub($html);
__END__
Output:
a => link
br =>
b => bold
u => UNDERLINE