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