795ea9db46067a4b365485b53751d5d90c22729a
[perl.git] / Bugs / replacecase
1 s/\w/[\u$&\l$&]/gi;