#!/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__