my ( $lines , $type , $major_version , $revision_number , $flags , $size , $extended_size , $number_flags , $extended_flags ) = "\0";

##</code><code>##

my @word = "\0" x 5;

##</code><code>##

my @word = ("\0") x 5;