Select Code to Download

use v5.12;
use warnings;
...
    say "$_"
        if $_ !~ / ([$chars]) .* \1 /x
}

abc
abb              # NB: b wasn't in chars
abcd