Select Code to Download

my @third_fragments = grep !/$rsite3/, $second_fragments[$i];

#! /usr/bin/perl -w
# a script to get fragments of a genome based on restriction enzyme
...
    return %fasta;

}