my $parse_it = HTML::TokeParser->new( \ ${$self->{'HTML'} } );

##</code><code>##

my $parse_it = HTML::TokeParser->new( \ "$self->{HTML}" );