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