perl6 -n -e '.say if 65 == [+] .uc.ords X- 64'