$mon =~ s/(.+)\.(.+)/$1\_$date\.$2/;