in reply to Re^2: How do you make a regex non greedy
in thread How do you make a regex non greedy

Anchoring isn't needed here either 
$_ = '1 TEST 2 TEST 3 TEST';
s/.*?(?=TEST)//;
print;
__END__
TEST 2 TEST 3 TEST

[download]

In Section Seekers of Perl Wisdom