perl -e 'print pack("h*", $_) for(qw/H E X V A L U E S/)'