my ($Tag) = sub
        {
                my ($tagname, $attr, $offset, $length) = @_;

                if ($tags->{$tagname})
                {
                        $safe_content .= substr($content,$offset,$length);
                }
        };