$var= "\0" x length($var);