my $html = '<font class="copy">Name<br />Address<br />Country</font>';

my $p2 = new HTML::TokeParser(\$html);
while (my $token = $p2->get_tag("font"))
{
    my $text = $p2->get_trimmed_text("/font");
    print $text;
}