1 while s/this(?{print"$&,$-[0]\n"})/that/;