perl -le'$x+=ord,print"$_ - ",ord for split//,HOLYBIBLE;print"Total: $x"'