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