sub modify_flat_file{
	open (USERFILE, "$flat_file");
	$ID_matched = 0;
	while (<USERFILE>) {
	    chop($_);
@f = ($a, $ID, $b, $c)=split(/\|/,$_);
	    if ($f[1] eq $FORM{'ID'}) {
		$ID_matched = 1;
		last;}
			close (USERFILE);
		if ($ID_matched == 1){
print USERFILE "$FORM{'new_a'}|$ID|$FORM{'new_b'}$FORM{'new_c'}'\n";