s#\d+.#sprintf'%4d'.$/x($'<$&),$&#eg,print"@{[sort/ .+/g]}]
"=~y/ /,/sr^w
for<>