my $p = HTML::TokeParser->new( \$sample_HTML );
while (my $token = $p->get_tag('cdata')){
my $text = $p->get_trimmed_text("/cdata");
print "Found Data: $text\n";
}