for my $td (@tds){
  my $bold = $td->look_down(_tag => q{b}); # look for a bold tag
  next unless $bold;
  my $txt = $bold->as_text;
  if ($txt=~ m/miR|let/){
    print $txt, qq{\n}; # if there is one print the text
  }
}