my $amino_acid;
	while ($seq=~/\G(...)/sg) {
		$amino_acid .= $genetic_code{$1};
	}
	return $amino_acid;