$readingframe =~ /(MHGR)/;
$protein = $1;

##</code><code>##

($protein) = $readingframe =~ /(MHGR)/;