#!perl -p
$_=s/(.)(?=(.)\2|\1.)(?!.\1)//g