Select Code to Download

#!/usr/bin/perl -w
use strict;
use warnings;
...
    my @codons = /[ACGT]{3}/g;
    say join '', map GENETIC_CODE->{$_}, @codons;
}

use v6;
constant DNA-codon = Hash.new: <
    TTT F      CTT L      ATT I      GTT V
...
}

.say for orf open('rosalind_orf.txt').get;