Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @X = ('aX-raya', 'aX raya', 'aXraya', 'axraya', 'X Ray', 'aXYraya'
+);
...
'axraya' -> match
'X Ray' -> match
'aXYraya' -> NO match

c:\@Work\Perl\monks>perl -wMstrict -le
"my @X = ('aX-raya', 'aX raya', 'aXraya', 'axraya', 'X Ray', 'aXYraya'
+);
...
'axraya' -> NO match
'X Ray' -> NO match
'aXYraya' -> match