I also checked... presuming the $string was "6801" instead of "\x68\x01" to see if it would work anyway... it does not. try it...

perl -e '$i = hex("0x6801"); print sprintf("\%x", $i), "\n"'
[download]

Still wrong. It should return 168, not 6801