Here's an example:

#!/usr/bin/perl

use strict;
use warnings 'all';

open my $fh => "< /tmp/foo" or die $!;

$/ = \100;

while (<$fh>) {
    my @nums = unpack "L*" => $_;
    print "@nums\n";
}
 
close $fh;  
 
__END__
[download]

Note that I used L in the unpack routine. This is garanteed to be exactly 32 bits, unlike I which is at least 32 bits.

Abigail

open(my $fh, "binary.file") or die("ack - $!");
my $chunk;
while(read($fh, $chunk, 4)) {
    my $data = unpack("i", $chunk);
    print "data is $data\n";
}
[download]

_________
broquaint

perldoc perl
perldoc -f open
perldoc -f read
perldoc -f binmode
perldoc -f pack
perldoc -f unpack
[download]

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]

You want to use read to read it in in chunks, unpack to split it up and push to append it to an array.

A good book is Data Munging with Perl, but if you are learning, try Learning Perl or Programming Perl.

Update: you might want to read about binmode too.

--
Steve Marvell