binmode STDOUT;
while (<DATA>) {
  chomp;
  print pack "H*", $_;
}

# Create new hex data with
# perl -wle "binmode STDIN; $/ = \32; while (<>) {print unpack 'H*', $_}" <perl.ico.orig
# then place after __DATA__
__DATA__
[encoded data, 5785 characters]
6720ff9f6520ffff6f6effff6e20
