$data =~ s/.+TEST/TEST/;