Select Code to Download

my $orig_IRS = $/;    # save the original input record separator
$/ = "\x00";
...
      print $MOD $_;
    }
  }

while ( defined ( $_ = do { local $/ = "\x00"; <$ORIG> } ) ) {
  # ...
}