#!/usr/bin/perl
use strict;
use warnings;

use XML::Simple;

my $file = '00000002.TIF.xml';
my $xml = XMLin(
    $file,
    KeyAttr => { symbol => 'type' },
);

my %barcode = (
    code39 => substr( $xml->{source}{index}{symbol}{'CODE-39'}{data}, 0, 10 ),
    qrcode => $xml->{source}{index}{symbol}{'QR-Code'}{data},
);

print "Code 39: $barcode{code39}\n";
print "QR_Code: $barcode{qrcode}\n";