s/\d+/$'-$&/ge,/(.+?)\1+-/,print$1=~y/ //,$/for<>