my $test = qq|1-10,20 some.thing [[else]],bla bla bla|;
my @temp = split /([,-\s\.\]\[]+)/, $test;
use Data::Dumper;
print Dumper(@temp);

##</code><code>##

1
-
10
,
20

some
.
thing
 [[
else
]],
bla

bla

bla


##</code><code>##

[[
]]
,
-
\s
.