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