print $s;
abacadaeafabacadaeafabacadaeafabacadaeafabacadaeafabacadaeaf

$s =~ s[(.)(?=.*?\1)][]g;

print $s;
bcdeaf