#!/usr/bin/perl
use warnings;
use strict;


{   local $/ = "==========\n";
    while (<DATA>) {
        print "$/$_" if /ID: 3$/m;
    }
}
__DATA__
==========
Name: blah
ID: 2
==========
Name: blah
ID: 2
==========
Name: here
ID: 3
==========
Name: blah
ID: 2
==========