$"=",";s/\d+/$a=$&;$'=~s!!$a+$&!ger/ge,print"[@{[sort{$a-$b}//g]}]
"for<>