$a =  pack("A*A*",$a,".pl");