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