use strict;
use HTML::TokeParser;

# from file
my $p = HTML::TokeParser->new("test.html") or die "Can't open: $!";
#from string
#my $p = HTML::TokeParser->new(\"text1 <b> text2 </b> text3");
my $t;

while (my $token = $p->get_token)
{
    $t .= $token->[1] if $token->[0] eq "T";
}

print $t;
[download]