1 while s/$string//;