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