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