s/\S+ / @{[$'-$&]}+/g?redo:print eval,$/for<>