http://www.perlmonks.org?node_id=971403


in reply to A string of pe(a)rls

Really nice one. One detail bothers me, though : map{ (...) and $_} is (in my opinion) better written as grep{ (...) }. Then, a simple ,$ |--||s[.][uc$&]e would put uppercase letters in just the right places.