Select Code to Download

my $line ='atgcatccctttaat';
my @trips;
...
}
use Data::Dumper;
print Dumper \@trips;

$VAR1 = [
          [
...
            'taa'
          ]
        ];