Just a small change... I like it better like this:

my $result;
my $skip = 0;
while (my $tok = $p->get_token) {
 my($ttype,$tag, $attr, $attrseq, $rawtxt) = @{ $tok };
  $tag=lc $tag;
  $skip=1 if (($ttype eq 'S') &&  ($tag eq 'script'));
    if ((!$skip) && ($tag ne 'script')) {
      $result .= $rawtxt;
      $result .= $p->get_text;
    }
  $skip=0 if (($ttype eq 'E') &&  ($tag eq 'script'));

}
[download]