$s = qq|1-10,20 some.thing [[else]],bla bla bla|;;
print "'$_'" for split /([-, .]|\[\[|\]\])/, $s;;
'1'
'-'
'10'
','
'20'
' '
'some'
'.'
'thing'
' '
''
'[['
'else'
']]'
''
','
'bla'
' '
'bla'
' '
'bla'