in reply to AWTDI: Renaming files using regexp

# convert the next dot to an underscore, as long as there's at least t
+wo dots
s/\./_/ while /\..*\./;

[download]
We're building the house of the future together.

In Section Seekers of Perl Wisdom