my @records = split(/\r/,$records);