and_files.pl

#!/usr/bin/perl

# OR two or more files together into one file.

use 5.014;
use strict;
use warnings;

my $data;

foreach my $file (@ARGV) {

    my $content = do {
        open my $fh, '<:raw', $file
          or die "Can't open <<$file>>: $!";
        local $/;
        <$fh>;
    };

    if (defined($data)) {
        $data &= $content;
    }
    else {
        $data = $content;
    }
}

binmode(STDOUT, ':raw');
print $data;