$_ = q(A0 B0 C0 A1 A0 B2 C0);
my @block = split /(A0.*?C0)/;