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

Yes, it is precisely that simple 
$_ = '1 TEST 2 TEST 3 TEST';
s/.*?TEST/TEST/;
print;
__END__
TEST 2 TEST 3 TEST

[download]

In Section Seekers of Perl Wisdom