Re^2: Reading particular line which repeats itself many times in text

[uday_sagar]

Monks, Thanks for your replies. I have solved the problem by putting together the concepts of non greedy quantifier(?) and storing the whole file (using File::Slurp) in a scalar variable. Here is the code.

use File::Slurp;
local $/ = undef;
open FILE, "my_text.txt" or die "Couldn't open file: $!";
binmode FILE;
$string = <FILE>;
close FILE;

if ($string=~/BEGIN hi(.*?)END/s)
{
print ${1}."\n";
}