Help for this page

Select Code to Download

Select or download this

use feature say;

...
say unpack "H*";    #  303132f04142430f0001ff
for (my $i = length; $i--; vec($_, $i, 8) ^= ~0) {}
say unpack "H*";    #  cfcecd0fbebdbcf0fffe00