c:\@Work\Perl\monks>perl -wMstrict -le "my ($alt) = map qr{$_}xms, join '|', map quotemeta, reverse sort qw(wx ab wxy abc wxyz abcd) ; print $alt; " (?^msx:wxyz|wxy|wx|abcd|abc|ab)