print$x=s/ \W+/substr$x,"@-","@+$'1"/egrfor<>