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