$clock = 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF05';
####
use warnings;
use strict;
my $clock = pack('H34','FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF05');
print "clock:$clock:\n";
for (split //, $clock) {
print "$_:", ord $_, ":\n";
}
####
clock:\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
\uffff:255:
:5:
####
$clock = 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF05';
$clock = 'F' x 32 . '05';