#!perl -ln
$w{1,sort/./g}.=" $_"}{$x{/ /g,sort/\w*/g}=1for%w;s/ . \W*//&&s/\W/ /g&print for sort%x