Select Code to Download

#!/usr/bin/perl
$string = 'once upon a binary bit';
...
    print "$byte\t";
}
 print "\n";

#!/usr/bin/perl
use strict;
...
my @nums = (unpack "L*",$file);
print "@nums\n";
close ZZ;