open ICO, ">perl.ico" or die $!; while () { chomp; print ICO pack "H*", $_; } close ICO or die $!; # Create new hex data with # perl -wle 'binmode STDIN; $/ = \32; while (<>) {print unpack "H*", $_}'