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