if ( $_[0] =~ /GG[AGCU]/i ) { return G;} # Glycine;