Alternative to using regex which still handles multiple ".":

$mon = '/accounts/person/code.42/file.MON.DOC';

my ( $d, $m, $y ) = (localtime)[3..5];
++$m;
$y+=1900;

substr($mon,rindex($mon,'.'),0)=".$y$m$d";
[download]