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