FZGA34177.b1 4085729 SETARIA_ITALICA/JGI/fasta/FZGA34177.b1.fasta 35000 3500 357 KB 1.3.0 FZGA 32913 2167749207 4555 899 active FZGA34177.b1 4085729 SETARIA_ITALICA/JGI/fasta/FZGA34177.b1.fasta 35000 3500 357 KB 1.3.0 FZGA 32913 2167749207 4555 899 active FZGA34177.b1 4085729 SETARIA_ITALICA/JGI/fasta/FZGA34177.b1.fasta 35000 3500 357 KB 1.3.0 FZGA 32913 2167749207 4555 899 active #### #!/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=){ if($line=~ /\/i){ $info_name = $line =~ /\(\S+)\<\/info_name\>/i; } if($line=~ /\/i){ $it_size = $line =~ /\(\S+)\<\/it_size\>/i; } } print "$info_name : $it_size\n"; }