$s=/ \b/?$.=!print+($_="@{[('+'.'-'x($s/$').'+')x$']}
",y/+-/| /rx(($.-3)/$`),$_)x$`:y/-//while<>