Help for this page
$readingframe =~ /(MHGR)/; $protein = $1;
($protein) = $readingframe =~ /(MHGR)/;