my (@text, $found_start);

while (my $t = $p->get_token){
  my $txt;
  if ($t->is_text){
    $txt = $t->as_is;
    for ($txt){
      s/^\s+//;
      s/\s+$//;
    }
    next unless $txt;
    $found_start++ if $txt =~ /^Hit/;
  }
  elsif (
    $found_start 
      and 
    $t->is_start_tag(q{a}) 
      and 
    $t->get_attr(q{href})
  )
  {
    my $href = $t->get_attr(q{href});
    if ($href =~ /mailto:/i){
      $txt = $href;
    }
    else {
      next;
    }
  }
  else{
    next;
  }
  next unless $found_start;
  push @text, $txt;
  last if $txt =~ /Listed since/;
}