perl 31byte

<>=~/ /;print$'-$`-($'*$`<0),$/

/ /$"(単一の空白文字)にすればさらに1byte縮む。(climpet氏の提出、%20氏の提出)

1位はbashからawkを呼んだ%20氏の提出の24byteだった。