Select Code to Download

print "Enter the filename of file having codon data:\n";
$file = <STDIN>;
...
 print "@triplets\n\n";
}
print "\n\n";

atgcatccctttaat
tctgtctga

atgcatccctttaat

...

tctgtctga
tct gtc tga