my $html = 'Name
Address
Country';
use HTML::TokeParser;
my $p2 = new HTML::TokeParser(\$html );
$p2->{textify}{br} = sub { "\n-\n" }; # substitution text for the "br" tag
while (my $token = $p2->get_tag("font"))
{
my $text = $p2->get_text("/font");
print $text;
}