Select Code to Download

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

    $filename =~ s/ /-/gi;
    $filename =~ s/--//gi;
    $filename =~ s/-\.html/\.html/gi;