The Cunctator wrote:
Because I love syntactic sugar, I can't help saying that the above can be reduced to
while(<>) { s/^([[[A-Z ()]+]])/lc $1/e; print }
And people think I'm joking when I tell them that good Perl looks like someone fell asleep on the keyboard ;-)