my $read = do {
  local $/ = \160; # set record size
  open my $fh, '<', $filename or die "Could not open $filename: '$!'";
  <$fh>; # scalar context, so the first record only
};
# now print $read or whatever