Sounds like something along the lines of

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

And then you do whatever you want with each element of @block. See perldoc -f split.

Makeshifts last the longest.