sub change_list
 {
 $list = $FORM{'list'};
 $editlist = $FORM{'editlist'};
 (@splitlist) = split(/\n/, $list);
 $numlist = @splitlist;
 open(FILE, ">$datadir/$editlist\.txt") || &error_message("Can't find data file -$datadir/$editlist\.txt.");
 for ($a = 0; $a < $numlist; $a++)
         {
         ($two, $one) = split(/,/, $splitlist[$a]);
         $two =~ s/\cM//g;
         if ($one =~ /.*\@.*\..*/)
                 {
                 print FILE "$two,$one,x\n";
                 }
 }
 close(FILE);