$mon =~ s/(.+)(\..+)/$1_`date \+\%m\%d\%Y`\.$2/e;