#!/usr/bin/perl use strict; use warnings; use HTML::TokeParser::Simple; my $sample_HTML = < blah. Just some random whatever. It might have some real HTML like a table or CSS styling or even some

IMPORTANT

words. Maybe even a form EOD my $p = HTML::TokeParser::Simple->new(\$sample_HTML) or die qq{parse failed\n}; my ($in_cdata, $cdata); while (my $t = $p->get_token){ $in_cdata++, next if $t->is_start_tag(q{cdata}); $in_cdata--, next if $t->is_end_tag(q{cdata}); next unless $in_cdata; $cdata .= $t->as_is; } print $cdata;