$_=<>;chop; $r=-1e20; for(($_)x10){ if(/^\d.*\d$/){ $e=eval; $r=$e if $r<$e; } $c=chop;$_=$c.$_; } print$r