my $data = ":TAG:This:TAG:is:TAG:a:TAG:test:TAG:";
my @results = split /(?=:TAG:)/, $data;