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