s/\r?\n//;
my $record = $_;