s/\s+\z//;
my $record = $_;