my $unique = qr/^(.)(?!\1)
                 (.)(?!\1|\2)
                 (.)(?!\1|\2|\3)
                  .$/x;