#!perl -pl
/ .* (.*) /;$_+=$1while$_<$1*$'?$_%$'-$&:~($_=-1)