open my $inFile, '<', $filename or die "Failed to open $filename: $!\n";

local $/ = '=================';

while (defined (my $record = <$inFile>)) {
    chomp $record;
    ...
}

##</code><code>##

my @lines = split "\n", $record;