($_ = 'aaab') =~ m/(.)((?!\1).)/ and print "$1|$2";