Because $Data doesn't need to be transformed so I can just append it to the output from pack. Also, because I didn't want to look up how to do that inside pack. (:

Having now looked it up, you can use "a*" or "A*" to include an untransformed string so append " a*" to the first argument to pack and change the ") ." to ", " if you like.