map{s/\S/@a[@-]=$&/ge;print$_//$"for@a,$/}<>