Re^2: How to use a negative backreference in regex?

thanks - it's been a while :)

I eventually ended up with the following:

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

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"

Comment on Re^2: How to use a negative backreference in regex? Download Code