@array=map(pack('H*',$_),(split /0d0a/,unpack("H*",$array)));