Select Code to Download

s|(<input type=checkbox)(.*)( name=)(\w+)|$1$2$3$4 $check{$4}|ig;

    foreach  ($query->param) 
    {    
...
        if ($_=~/^c_/) { $check{$_}="CHECKED"  
                print OUT "$in{$_}\t";
}