in reply to splitting line without split

my @a = /((?:[^;]|;(?!SHAPES |\z))+;)/g;

[download]

In Section Seekers of Perl Wisdom