/.* /,$a=$\=$'-$_,s/\S+ /$a-=$-=$a-$'+$&/ge for<>;print$a,$/