sub md5_base32_2{ 
    join'', ('A'..'Z', 0..5 )[ 
        unpack 'C*', 
          pack '(b5)*', 
        unpack '(A5)*', 
        unpack 'b*', 
           md5 $_[ 0 ] 
    ] 
}