$"=',',print"[@{[sort{$a-$b}sort/(\d.*?)(?:]|,(??{eval$1<=$'&&a}))/g]}]
"for<>