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