my perl XML::XPath code
#!/usr/bin/perl 
#file: show-barcodes-with-XML-XPath.pl
#!/usr/bin/perl

use XML::XPath; 
 
my $file = "00000002.TIF.xml"; 
my $xp = XML::XPath->new(filename => $file); 
my $barcode_code39 = $xp->find('/barcodes/source/index/symbol[@type="CODE-39"]/data');
my $barcode_qrcode = $xp->find('/barcodes/source/index/symbol[@type="QR-Code"]/data');

$barcode_code39 = substr($barcode_code39, 0, 10);

print ("Code 39: ", $barcode_code39, "\n");
print ("QR-Code: ", $barcode_qrcode, "\n");

#print ("processed: " . $file . "\n");



#file: 00000002.TIF.xml
<barcodes xmlns='http://zbar.sourceforge.net/2008/barcode'>
<source href='00000002.TIF'>
<index num='0'>
<symbol type='QR-Code' quality='1'><data><![CDATA[0037000249]]></data></symbol>
<symbol type='CODE-39' quality='102'><data><![CDATA[0037000249P]]></data></symbol>
</index>
</source>
</barcodes>