# 3270 results in my /usr/share/dict/words file
# First attempt, 97
@c=split//;$v=0;foreach$s(@c){$s=lc$s;if($s=~/[a-z]/i){$v+=ord($s)-ord('a')+1;}}print if($v==65);

##</code><code>##

# Second attempt: 88
@c=split//;$v=0;foreach$s(@c){$s=lc$s;if($s=~/[a-z]/){$v+=ord($s)-96;}}print if($v==65);

##</code><code>##

# Third attempt: 80
@c=split//;$v=0;map{$v+=ord(lc($_))-96;}grep{/[a-z]/i;}split//;print if($v==65);

##</code><code>##

# 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);