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