Select Code to Download

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

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

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

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