Select Code to Download

sub reverse_complement {
    local $_ = shift;
    y/ACGT/TGCA/;
    reverse;
}

while (<FASTA>) {
    chomp;
...
        # it's sequence data
    }
}