sub c {                             
($_,$a,%h)=@_;s!.!$h{$&}||=($a=~/./g,"$&\200")!sge;y/\200//d;$_
}