use strict;
use warnings;
use LWP;
   my $R_score   = ();
   my @protein   = ();
   my @R_score_protein   = ();


    $browser = LWP::UserAgent->new();
    my $resp        = $browser->get(http://www.bork.embl-heidelberg.de/g2d/list_hits_disease.pl?U57042:Inflammatory_bowel_disease_7);
    my $content_all = $resp->content();
    while ( $content_all =~ m{R\-score<\/A>\s=\s(\d\.\d+)\;}g ) {
        $R_score = $1;
        push( @R_score_protein, $R_score );