sub c {
($_,$a)=@_;$b=$_;  
1 while$b=~s/(.)(.*?)\1/$1$2/g; 
eval"y/\Q$b\E/\Q$a\E/";    
$_ 
}