Help for this page

Select Code to Download


  1. or download this
    my $orig_IRS = $/;    # save the original input record separator
    $/ = "\x00";
    ...
          print $MOD $_;
        }
      }
    
  2. or download this
    while ( defined ( $_ = do { local $/ = "\x00"; <$ORIG> } ) ) {
      # ...
    }