$_ = '1 TEST 2 TEST 3 TEST';
s/.*?TEST/TEST/;
print;
__END__
TEST 2 TEST 3 TEST