in reply to Quick regexp question
Hi,
your code is almost perfect, you've just put a '/' at the end of your pattern :
Arnaud
will work$a =~ s{\b([A-Z]{4,})\b}{ucfirst(lc($1))}eg;
Arnaud
|
---|
In Section
Seekers of Perl Wisdom