1 while s/^([^A]*A[^A]*)A/$1a/;