my $test="[Part1,Part2],[Part3],[Part4, Part5],[Part6]";; my @a=split(/\[([^\[]+)\]/, $test);