Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $str (qw(aXbXc  a.b.c)) {
...
"
for 'aXbXc' match
for 'a.b.c' match

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $str (qw(aXbXc  a.b.c)) {
...
"
for 'aXbXc' NO match
for 'a.b.c' match