use strict;
use warnings;

my @allData = <DATA>;
my @tmpHeader = grep /^Test\s+\d+\s+of\s+\d+$/../^\d+\s+end$/, @allData;
print @tmpHeader;

__DATA__
Test 1 of 1
bala
bala
bala.
bala
138 end
blah
blah