- or download this
#!/usr/local/bin/perl
use strict;
...
local $/; # Slurp
<$fh>;
};
- or download this
my @tokens;
...
$sandboxxml =~ s/<!--.*?-->//s;
}
}
- or download this
while ($sandboxxml =~ s#(<[^<>]*(?:/|>(?:[^<>]|<<\d*>>)*</[^<>]*)>)#'<
+<' . (0+@tokens) . '>>'#es) {
push @tokens, $1;
}