Select Code to Download

sub c {
($_,$a)=@_;                                   
map{$h{$_}?$h{$_}:do{$h{$_}=(split//,$a)[$i++]."\0"}}/./g
}

sub c {
($_,$a)=@_;$b=$_;  
...
eval"y/$b/$a/";    
$_ 
}

sub c {
($_,$a)=@_;$b=$_;  
...
eval"y/\Q$b\E/\Q$a\E/";    
$_ 
}