c:\@Work\Perl\monks\kroki>perl permute_via_regex_1.pl
# perl version 5.014004
ok 1 - (?^msx: (.+) (.+) (.+) )
ok 2 - (?^msx: (.+) (.+) ((?: . y?)+) )
ok 3 - (?^msx: (.+) (.+ x?) (.+) )
ok 4 - (?^msx: (.+) (.+ x?) ((?: . y?)+) )
ok 5 - (?^msx: (.+ w?) (.+) (.+) )
ok 6 - (?^msx: (.+ w?) (.+) ((?: . y?)+) )
ok 7 - (?^msx: (.+ w?) (.+ x?) (.+) )
ok 8 - (?^msx: (.+ w?) (.+ x?) ((?: . y?)+) )
1..8
ok 9 - no warnings
1..9