{
    my $t = '%02x ' x 1000; 
    sub ords2{ 
        sprintf substr( $t, 0, length $_[0]*5 ), unpack 'C*', $_[0]; 
    }
}