chomp(my $record = $_);

##</code><code>##

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

##</code><code>##

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