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

##</code><code>##

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