Help for this page
use strict; use warnings; ... $str =~ s/^.*?(?=TEST)//; print $str;
TEST and the good stuff afterwards