$string = 'abcd' ; $padded = pack('A40',$string) ; print "[$padded]\n" ;