($S,$t,$u)=glob<>; $_!=$t&&$_!=$u&&print substr$S,$_,1for 0..length($S)-1; print$/