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