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


in reply to extract only uppercases from string

Well, what did you try?