my @records;
{
#   local $/ = \1322; # may be desirable
    open IN, '<', '/path/to/file.data' or die $!;
    @records = map {
        [ unpack "C1024 C44 C26 C44 C26 C44 C26 C44 C26", $_ ]
    } <IN>;
    close IN or die $!;
}