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