my $pattern= "(,|\\||:|>|\\]\\[|_\\|_)";
my @splitted= split /$pattern/,$text;