Thanks to this last posting, I got the problem solved!!!
#!/usr/bin/perl
use strict;
use warnings;
use Archive::Zip;
use XML::XPath;
my @numberstocheck = qw(112334 999888 222333 999888 0008877 003344 122
+2334 00009 004443 999888);
my $zipfile = "test.zip";
my $fillThisFile = "$zipfile-junk.xml";
my $zip = Archive::Zip->new( $zipfile ) || die;
my @xml = $zip->membersMatching( '.*\.XML' );
$zip->extractMember( $xml[0] , $fillThisFile );
my $xmlfile = XML::XPath->new(filename => $fillThisFile);
foreach my $row ($xmlfile->findnodes('/alllist'))
{
my $nodeset = $row->find('phnumbers');
foreach my $node ( $nodeset->get_nodelist )
{
my $numbers = $node->find( 'numbers')->string_value;
print "\n 19 - $numbers \n";
foreach (@numberstocheck)
{
if (/^($numbers)/g)
{
print "$numbers - ".$_."\n";
}
}
}
}
Thanks a lot for that!