BEGIN hi
abc
def
ghi
jkl
END

BEGIN hello
abc
pqr
stu
mno
END

##</code><code>##

open DATA, "</hello.txt";
my @hello = <DATA>;
foreach my $k (@hello)
     {
if ($k=~/BEGIN ps7_slcr/../END/)
{
print $k;
}

    }