Select Code to Download

$ 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