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