my $x = '@########@'; #### '', '####', '', #### '', '###@' #### '@#######@' #### my @x = qw(## @ #); #### '####@#@@##'
## '', '####', '', ##
## '', '###@' ##
## '@#######@' ##
## my @x = qw(## @ #); ##
## '####@#@@##'