$data = do{ undef $/; <$fh> };

while ($data =~ m/==/) {
    ($rec, $data) = unpack("n/A A*", $');
    process($rec);
}