my $delim = ':TAG:';
my @data = split $delim, $line;
@data = map{ $_ = $delim . $_ } @data;
print length($_) . "\n" foreach @data;