s#\d+#s/$&//g#eg,print sort{$b-$a}$/,//gfor<>