Select Code to Download

my $delim = ':TAG:';
my @data = split $delim, $line;
my $line = join $delim, @data;

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