use strict; use warnings;

open READER, '<', 'rna.txt';
   chomp(my $rna = <READER>);
close READER;

my %gencode;

open GENCODE, '<', 'code.txt';
   while (<GENCODE> =~ m/^([AUGC]{3}) (\w)?$/m) {
	my $codon = $1;
	my $aa;
	if (defined $2) {
		$aa = $2;
	} else {
	#	$aa = 'STOP';
		$aa = '';	
}
	$gencode{$codon} = $aa;
   }
close GENCODE;

my $protein = $rna;

while ($rna =~ m/([AUGC]{3})/g) {
	my $codon = $1;
	my $aa    = $gencode{$codon};
	$protein =~ s/$codon/$aa/;
}

open RESULTS, '>', 'results.txt';
   print RESULTS "$protein\n";
close RESULTS;