$ perl -e " print qq!($_)\n! for split /,/, q!5,,,!"
(5)

$ perl -e " print qq!($_)\n! for split /(,)/, q!5,,,!"
(5)
(,)
()
(,)
()
(,)