$editlist = $FORM{'list'};
 open(FILE, "$datadir/$editlist\.txt") || &error_message("Can't find data file - $datadir/$editlist\.txt.");
 @list = <FILE>;
 close(FILE);

 $numlist = @list;

 $ccc = 0;
 for ($a = 0; $a < $numlist; $a ++)
         {
         ($two, $one, $nochop) = split(/,/, $list[$a]);
         if ($one =~ /.*\@.*\..*/)
                 {
                 print "$two,$one\n";
                 $ccc++;
                 }
         }