#!perl -pl $r=-1e8;s"^|\B"s/\b0*\B//,$r+=$-=-$r+eval for$'.$`"ge;$_=$r