Help for this page
my $rx_empty = qr{ \A \s* \z }xms; # empty line (or whitespace on +ly)
if ($record =~ $rx_empty) { # ignore next RECORD }