@words = split (/ /, $titleclean);
        $filename = $year."-".$mon;
		#for ($i=0; $i<3; $i++) {
		for ($i=0; $i<12; $i++) {
			$filename = $filename."-".$words[$i];
		}
        $filename = $filename.".html";