while ($sandboxxml =~ s#(<[^<>]*(?:/|>(?:[^<>]|<<\d*>>)*</[^<>]*)>)#'<<' . (0+@tokens) . '>>'#es) {
    push @tokens, $1;
}