Select Code to Download

my @array = do {
    local $/ = ('*' x 66) . "\n";
...
    chomp @tmp;
    @tmp;
};

substr $_, 0, 2 + length("\n") + index($_, "--\n"), ''
    for @array;