@words = split (/ /, $titleclean);
	$numwords+=@words;
        $filename = $year."-".$mon;
		for ($i=0; $i<$numwords; $i++) {
		$filename = "$year-$mon-" . join("-",@words) . ".html";
		}