Select Code to Download

#! perl -slw
use strict;
...
z2y0x0 z1y0x1 z2y0x2
z2y1x0 z2y1x1 z2y1x2
z2y2x0 z2y2x1 z2y2x2

c:\test>754307.pl
[
...
    ["z2y2x0", "z2y2x1", "z2y2x2"],
  ],
]