# open the log file
open(REGLOG, $regLog) or die "Can't open logfile: $regLog";

#open data file
open(REGDATA, ">> $regDataFile") or die "can't open the Registration data file";

# seek to last offset
seek(REGLOG, $offset[0], 1);

while (<REGLOG>) 
{
	chomp; # removing trailing \n
	# code truncated here for brevity.....
        # fields defined through delimiters....

	print REGDATA "$regDate, $regUserName, $regEmail, $regCountry, $regIp, $regRefer, \n";
	
	
}