The main problem I can see is that you need to escape ] and [ in regexen (they are used for character classes). This worked for me:

my $text="jojo,has|some:big>balls][nuts,sometimes_|_he,scratches";
my @splitted= split /,|\||:|>|\]\[|_\|_/, $text;
foreach $particle (@splitted) {
    print $particle."\n";
}
[download]

PS: ...or just see grandfather's post above :)