# Execute as perl -F'' -alne '$code' /usr/share/dict/words
# Fourth attempt: 77
$v=0;foreach$s(@F){$s=lc$s;if($s=~/[a-z]/){$v+=ord($s)-96;}}print if($v==65);