Select Code to Download

use strict;
use warnings;
...
$str =~ s/^.*?(?=TEST)//;

print $str;

TEST and the good stuff afterwards