Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'aZaXaYa';
...
 print 'all there' if $s =~ m{ \A (?= .*? X) (?= .*? Y) (?= .*? Z) }xm
+s;
"
all there