Help for this page
my @fields = split /$field_separator/, $record;
while (defined (my $record = <$filehandle>)) {