$data =~ s/.*?(?=TEST)//; [download]
In reply to Re: How do you make a regex non greedy by wind in thread How do you make a regex non greedy by Anonymous Monk