while (($var1 = index ($var2, $var3)) NE -1 )