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

##</code><code>##

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