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


in reply to wantarray alternative

return (wantarray) ? map { lc } @_ : first {$_} map { lc } @_;

Update: Doh! Preceptor beat me to it.