while ( $content_all =~ m{R\-score<\/A>\s=\s(\d\.\d+)\;}g ) {
    push( @R_score_protein, $1 );
}
while ( $content_all =~ m{\[(NP_\d+)\]}g ) {
    push @protein, $1;
}