Wow, I didn't know the empty capture and backreference trick, nice!

I also didn't know the trick where you put the pattern on the left side of the =~ operator and still get results somehow ;-)

I suspect there's some unexpected behavior in the backtracking?
I tried: 
use v5.20;
use Data::Dump "pp";

my @z = glob('{a,b,c}'x6);
my $z = '(?:a()|a()|b()|b()|c()|c()){6}\1\2\3\4\5\6';

for my $j (@z)
{
    $j =~ $z and say pp {$j => \@- };
}

[download]
And I got a bunch of values likes: 
...
{ acbcaa => [0, 6, 6, 3, 3, 4, 4] }
{ acbcab => [0, 5, 5, 6, 6, 4, 4] }
{ acbcac => [0, 5, 5, 3, 3, 6, 6] }
{ acbcba => [0, 6, 6, 5, 5, 4, 4] }
{ acbcca => [0, 6, 6, 3, 3, 5, 5] }
{ accaab => [0, 5, 5, 6, 6, 3, 3] }
{ accaba => [0, 6, 6, 5, 5, 3, 3] }
...
{ cccbab => [0, 5, 5, 6, 6, 3, 3] }
{ cccbac => [0, 5, 5, 4, 4, 6, 6] }
{ cccbba => [0, 6, 6, 5, 5, 3, 3] }
{ cccbca => [0, 6, 6, 4, 4, 5, 5] }
{ ccccab => [0, 5, 5, 6, 6, 4, 4] }
{ ccccba => [0, 6, 6, 5, 5, 4, 4] }

[download]
Where each pair of alternative match exactly (eg \1 and \2) at the same place, no matter what. I'd suspect that the identical branches are actually merged by the optimizer.
Is there some other magic to DWIM?
There's this: 
my @y = glob('{a,b,c}'x6);
my $y = '(?:(?!\1)a()|(?!\2)a()|(?!\3)b()|(?!\4)b()|(?!\5)c()|(?!\6)c(
+)){6}\1\2\3\4\5\6';

for my $j (@y)
{
    $j =~ $y and say $j;
}

[download]
aabbcc
aabcbc
aabccb
aacbbc
aacbcb
aaccbb
ababcc
abacbc
abaccb
...
ccbaab
ccbaba
ccbbaa

[download]

Edit: this also works actually (without \1\2\3\4\5\6 at the end): 

# edit reformatted as a multiline regex for clarity
my $y = qr/(?:
               (?!\1) a ()
             | (?!\2) a ()
             | (?!\3) b ()
             | (?!\4) b ()
             | (?!\5) c ()
             | (?!\6) c ()
           ){6}
         /x;

[download]
So TIL, (?!\x)XXX() is a pattern to only allow XXX to match once in the whole regex... Cool :-)

In reply to Re: Matching permutations with regex by Eily
in thread Matching permutations with regex by QM

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.