in reply to Re: Matching text between line 0 and 4
in thread Matching text between line 0 and 4

It is probably better do do the slurp like this:

my $whole_thing = do{local $/; <TEST>};

A truely compassionate attitude towards other does not change, even if they behave negatively or hurt you

—His Holiness, The Dalai Lama