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