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