#!/usr/local/bin/perl -i.bak

while (<>) 
{ 
s/Jun 30/Jun 31/g;
print;
}
