Help for this page
$ perl -E ' my ($x, $y, $c, $p) = qw{AxAAxAAAxAAAA AA 0 0}; ... say $c; ' 4
$ perl -E ' my ($x, $y, $c, $p) = qw{AxAAxAAAxAAAA AA 0 0}; ... say $c; ' 6