($_ = 'aaab') =~ m[(.)((??{"[^$1]"}))] and print "$1|$2";
a|b