in reply to AWTDI: Renaming files using regexp

Similar to jdporter's solution, but let's the regex engine do the looping.

s[\.(?=.*\.)][_]g, print while <DATA>;

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.