Select Code to Download

my $string = "ATCGC[ATCG]AAA[GA]";

...
}

print join("\n", @out) . "\n";

my $string = "ATCGC[ATCG]AAA[GA]";
my @out = "";
...

print join("\n", @out) . "\n";