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