#!perl -pl
y;1_;31;;$_=eval;y;31;1_