Select Code to Download

    $threads[$i] .= "\n<ul type=\"disc\">\n$link\n</ul>\n";

    splice @threads, $i, 0,  
        '<ul type=\"disc\">', "$link",'</ul>';