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 text2 text3");
my $t;
while (my $token = $p->get_token)
{
$t .= $token->[1] if $token->[0] eq "T";
}
print $t;