open (OLD, "<$old_file.txt") || die $!;
my $i;
foreach (split (/====\s*\n(?=\d+)/, do{local$/;<OLD>}))
{
    open (NEW,">$old_file$i.txt") || die $!;
    print NEW $_;
    close (NEW);
    $i++;
}