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