[trwww@www misc]$ cat 618115.pl
use warnings;
use strict;

my @delimiters = (
  ',',
  '|',
  ':',
  '>',
  '][',
  '_|_',
);
my $pattern = join '|', map quotemeta, @delimiters;

my $text = "jojo,has|some:big>balls][nuts,sometimes_|_he,scratches";

foreach my $particle (split /$pattern/, $text) {
  print $particle."\n";
}

##</code><code>##

[trwww@www misc]$ perl 618115.pl
jojo
has
some
big
balls
nuts
sometimes
he
scratches