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.