Help for this page

Select Code to Download

Select or download this
```
$a='
220021
000200
020222
020222';
```

Select or download this

my $arraycount=0; my @charArray=(); my @linear=grep length, split /\n/
+, $a;
        @lines=@linear;
...
            }
        }
    }