#!/usr/bin/perl
my @files = glob('/abc*/info.xml')

foreach my $xmlname(@xml)
{

    open XML, $xmlname or die "Cannot open $xmlname for reading: $!\n";
    
    while($line=<XML>){
    
	if($line=~ /\<info_name\>/i){
	    $info_name = $line =~ /\<info_name\>(\S+)\<\/info_name\>/i;
	}
	if($line=~ /\<it_size\>/i){
	    $it_size = $line =~ /\<it_size\>(\S+)\<\/it_size\>/i;
	}
    
    }
    print "$info_name : $it_size\n";
}