#!perl -pl
$_=eval'-!s/\S+/$&-$\'/ge+$`'x10