$_ = "a\001b";
 m[(.)([^\1])] and print "$1|$2";

##</code><code>##

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