sub makelog {
        open (LOGFILE, ">>$logfile") or die("Can't Open Log File at $logfile");
        @FieldNames = sort (keys %FORM);
        foreach $key (@FieldNames) {
                print LOGFILE ("\t"."$FORM{$key}");
        }
        print LOGFILE ("\n");
        close (LOGFILE);
}

##</code><code>##

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ s/%0D%0A/\, /g;
        ...
}