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