Question

I have a data file with lines like this:

A1 2 3 4 5
B 1 2 4
B 7 8 9
A6 7 8 9
B 1 2 3
B 5 6 7
A3 6 9 7
B 2 3 3
B 5 6 6

Using Perl, how do I split the file into a set of arrays (or any other data structure) when the parser hits a /^A/ please?
so I end up with

array1:

A1 2 3 4 5
B 1 2 4
B 7 8 9

array2:

A6 7 8 9
B 1 2 3
B 5 6 7

etc.

Many thanks.

Answer 1

I had to rewrite the answer (after rewritten question)

@arrays = ();
while (<>) {
  push(@arrays, []) if /^A/;
  push(@{$arrays[-1]}, $_)
}