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