use HTML::TokeParser;

my $result;
my $p = HTML::TokeParser->new(\$text);

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