Select Code to Download

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

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