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