Actually, use what Util said for the hex2bintext subroutine:

sub bin2hextext {
  join '', '0x', unpack("H*", $_[0] );
}
[download]

I thought this looked like a job for pack/unpack, but I couldn't remember all the pack codes.