#!perl -pl
y/1*-/h^ /;$_=h|eval;s;h;1