Select Code to Download

sub binSubst {
    my( $infile, $outfile, $regex, $repl, $maxlen, $bufsiz )= @_;
...
    # Write out any left overs:
    print $outfile $buf;
}