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