in reply to replace all but first

I liked EdwardG's solution, but here's a less expert one: 
1 while s/^([^A]*A[^A]*)A/$1a/;

[download]

-QM
--
Quantum Mechanics: The dreams stuff is made of

In Section Seekers of Perl Wisdom