in reply to splitting on new-line characters
@array=map(pack('H*',$_),(split /0d0a/,unpack("H*",$array))); [download]