#!/usr/bin/perl

use warnings;
use strict;

use LWP::UserAgent;
use HTML::TreeBuilder;

my $url = q{http://microrna.sanger.ac.uk/cgi-bin/targets/v5/detail_view.pl?transcript_id=ENST00000226253};
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $response = $ua->get($url);
 
my $content; 
if ($response->is_success) {
   $content = $response->content;
}
else {
   die $response->status_line;
}

my $p = HTML::TreeBuilder->new;
$p->parse_content($content);

my @tds = $p->look_down(_tag => q{td});
for my $td (@tds){
  my $bold = $td->look_down(_tag => q{b});
  next unless $bold;
  my $txt = $bold->as_text;
  if ($txt =~ /miR|let/){
    print $txt, qq{\n};
  }
}
$p->delete;