#!/usr/local/bin/perl use strict; use warnings; my $sandboxxml = do { open(my $fh, '<', $ARGV[0]) || die("sandbox xml file cannot be loaded;check for file name or existance"); local $/; # Slurp <$fh>; }; #### my @tokens; while ($sandboxxml =~ //'<<' . (0+@tokens) . '>>'/es; push @tokens, $1; } else { # Comment $sandboxxml =~ s///s; } } #### while ($sandboxxml =~ s#(<[^<>]*(?:/|>(?:[^<>]|<<\d*>>)*]*)>)#'<<' . (0+@tokens) . '>>'#es) { push @tokens, $1; }