[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";
}