#!/usr/bin/perl
use XML::XPath;
use XML::XPath::XMLParser;

open (FILE, 'list.txt');
	my @contents=<FILE>;
close(FILE);

    	foreach my $content (@contents) {
        	if($content =~ m/(\d+)_(\d+)/) {
                $vid = $1;
                $xmlfile = "$vid.mp7.xml";
                my $xp = XML::XPath->new(filename => $xmlfile);
                $var = '/Mpeg7/Description/MultimediaContent/Video/TemporalDecomposition/VideoSegment[@id="$content"]/MediaTime/MediaTimePoint';
                my $data = $xp->getNodeText($var);
                print "$data \n";
                };
};