$s =~ s/a/B/ for(1..3);