<![CDATA[
#!perl -w
use strict;
use BioLibeg 0.001 qw/:all/;
my $dna = "ATAGCATAGACC";
my $len = length $dna;
my $result = "";
for (my $index = 0; $index < $len-2; $index += 3) {
$result .= codon2aa(substr($dna, $index, 3) );
}
print "DNA 2 PROTEIN: $dna => $result\n";
my $count = count("t",$dna);
print "DNA 2 PROTEIN: $dna => $result\n";
print "Count of Ts: $count\n";
exit(0);
]]>