use strict;
use warnings;
my $keep = 3;
local $/="#";
while(<DATA>){
    last unless $keep--;
    print;
}
__DATA__
1
#
2
#
3
#
4
#
5