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