$_=<>; ($a,$b)=glob<>; $c=substr($_,$a,1)^substr($_,$b,1); substr($_,$a,1)^=$c; substr($_,$b,1)^=$c; print;