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