(desculpe spam você) Usando um analisador XML em perl
(se necessário: sudo cpan XML::DT
)
#!/usr/bin/perl
use XML::DT;
my $file = shift;
# $c - contents after child processing
print dt(
$file,
'Unique' => sub{$c =~ s/^(\d{1,9}-\d+|\d+-\d{1,8})$/FIXME:$1/; toxml },
)
Nesse caso, você recebe um XML anotado com "FIXME" s