Help for this page

Select Code to Download


  1. or download this
    perl -lnE'unpack("%a*")-65-96*length||say'
    
  2. or download this
    perl -lne'65+length()*96-unpack"%a*"or print'
    
  3. or download this
    perl -lne'65+length()*96-unpack"%a*",lc or print'
    
  4. or download this
    #23456789_123456789_123456789_123456789_
    perl -lnE'65+96*y///c-unpack"%a*"or say'