[MacPerl] pattern match hitch

[Louis Pouzin]

Hi,

I can't figure out what's wrong in the following. Any hint ?

Thanks

Here is a script:

#!perl -w
my $days = "Mon|Tue|Wed|Thu|Fri|Sat|Sun";
while (<DATA>) {$lin = $_;
        /^Date:\s+$days,\s+(\d\d?)/o && do {
                print $lin;
                print "dat1: $& \n";
                print "dat2: $1 \n";
                print "-------\n";
        }
}
1;
__END__
Date: Wed, 14 Nov 2001 23:19:51 -0500
Date: Sun, 18 Nov 2001 14:27:08 +0300
Date: Wed, 14 Nov 2001 23:19:51 +0500

When it executes:

Date: Wed, 14 Nov 2001 23:19:51 -0500
dat1: Wed 
# Use of uninitialized value, <DATA> chunk 1.
File 'Labo:minitests �:utc1.pl'; Line 7
dat2:  
-------
Date: Sun, 18 Nov 2001 14:27:08 +0300
dat1: Sun, 18 
dat2: 18 
-------
Date: Wed, 14 Nov 2001 23:19:51 +0500
dat1: Wed 
# Use of uninitialized value, <DATA> chunk 3.
File 'Labo:minitests �:utc1.pl'; Line 7
dat2:  
-------