Select Code to Download

        my ($hp) = new HTML::Parser (
                            api_version => 3,
                            start_h     => [ $Tag,  'tagname,attr,offs
+et,length' ],
                            end_h       => [ $Tag,  'tagname,attr,offs
+et,length' ],
                            text_h      => [ $Text, 'text' ],
                        );

        my ($Tag) = sub
        {
                my ($tagname, $attr, $offset, $length) = @_;
...
                        $safe_content .= substr($content,$offset,$leng
+th);
                }
        };

use HTML::Parser;

...

     print HTMLSafeContent ($some_content, \%tags_1);