Help for this page
my $x = '@########@';
'', '####', '',
'', '###@'
'@#######@'
my @x = qw(## @ #);
'####@#@@##'