$\+=$_[$i+=/ /]*($%+=$'-$`)for@_=<>;print