On Sep 8, 2011, at 10:13 AM, Rob Dixon wrote:
> $string =~ s/\b([aeiouy]{3,4}|[^aeiouy]{3,4})\b/\U$1/ig;
Thanks to everyone who responded. I was trying to be concise but I
went about it the wrong way and ended up creating more work for myself. I like
the above code as it allows me to use the original string without having to
split it and create new arrays just for this one feature, and it's simpler than
I had hoped for. Most importantly, I understand it! =;)
Thanks again,
Marc
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
