Select Code to Download

#!/usr/bin/env perl -l

...
for ($doc->findnodes('//span/text()')) {
    print $1 while /$re/g;
}

<span ...>%var%</span>

<span ...>
    %var%
</span>

<root>
    <A>
...
        </C>
    </B>
</root>

PN1
PN2
...
DIMINCH
DIMMM
DIMINCH

for my $context ($doc->findnodes('//span')) {
    print $context;
...
        }
    }
}

<span color="#231f20" whatever="%DoNotMatch%" textOverprint="false">%P
+N1%</span>
%PN1%
...
%DIMMM%%%%DIMINCH%
DIMMM
DIMINCH