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


in reply to Homework Golf

I'm about a week late to this, but in case anyone hasn't posted something exactly like this:

-p $_ x=65==map{97..ord lc}/./g

thanks to user oiskuu for the correction on the 97