sub ords{ sprintf "%02x " x length($_[0]), unpack 'C*', $_[0]; }