$mon = "MON.DOC";

@name = split (/\./,$mon);

$date = `date`; #(or whatever)

$filename = $name[0] . "_" . $date . "." . $name[1];