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