my $p = HTML::TokeParser->new(\$page_content);

##</code><code>##

   my $text = $p->get_text;
   if ($text =~ /$my_name/) {#stuff...}