#!/usr/bin/perl
$string = 'once upon a binary bit';
  foreach my $byte (unpack "C*", $string) {
    print "$byte\t";
}
 print "\n";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

$/='undef';
my $in = shift || $0;
open (ZZ, "< $in") or die $!;
binmode ZZ;
my $file=(<ZZ>);
my @nums = (unpack "L*",$file);
print "@nums\n";
close ZZ;