@words = split / /, $titleclean;
$filename = "$year-$mon-" . join("-",@words) . ".html";