DB<200> p
bab

  DB<200> x / (.) (?! .* \1 ) /gx
0  'a'
1  'b'

##</code><code>##

  DB<211> x / (.) (?<! \1 .* ) /gx
Variable length lookbehind not implemented in regex m/ (.) (?<! \1 .* ) / at (eval 261)[C:/Perl_64/lib/perl5db.pl:646] l
ine 2.