Select Code to Download

#!/usr/local/bin/perl
use strict;
...
    local $/; # Slurp
    <$fh>;
};

my @tokens;

...
        $sandboxxml =~ s/<!--.*?-->//s;
    }
}

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