If Statement Nested Regular Exp.

Any ideas why this fails. If I remove if /aged/ and just have the if
/Reports ... then everything works ok.

Code....
#!/usr/bin/perl
my @files;
my %age;
push (@files, glob "Aged*");
push (@files, glob "Receipts*");

foreach (@files){
    open FILE,"<$_";
    print "$_\n";
    while(<FILE>){
	if ($_=~/Aged/){
	    print "Test\n";
	if (/Report
Total:\s+([\d,.]+)\s+([\d,.]+)\s+([\d,.]+)\s+([\d,.]+)\s+([\d,.]+)\s+([\
d,.]+)\s+/){
	    $age{"Orignal"}  = $1;
	    $age{"Current"}  = $2;
	    $age{"30 Days"}  = $3;
	    $age{"60 Days"}  = $4;
	    $age{"90 Days"}  = $5;
	    $age{"120 Days"} = $6;
	}
    }
    }
}
print "$k => $v\n" while (($k,$v) = each %age);

Paul Kraus
Network Administrator
PEL Supply Company
216.267.5775 Voice
216-267-6176 Fax
www.pelsupply.com

• If Statement Nested Regular Exp. by Paul Kraus
• RE: If Statement Nested Regular Exp. by Wagner, David --- Senior Programmer Analyst --- WGO
• Re: If Statement Nested Regular Exp. by Jenda Krynicky