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

    }