<>;$b=0;$l=-1+length$',$t=$`*.012|0,$a+=$l>$t?($b+=$l-$t,$t):$l while<>=~/ /;print"$a $b"