my $p = HTML::StripScripts::Parser->new({
  Rules => {
    span => sub { my ($filter,$element) = @_;
                    print Dumper $element if $element->{content} =~ /^<span\W/;
                    1;
                },
    }
  }
);