my( $x, $y, $z ) = ( 80, 60, 64 ); ## Loop over the chosen sets of dimensions
my $word = 'browseruk'; ## and a set of words to look for

my $spacing = 80 * 60;;
my $z_f2b = join ".{$spacing}", split '', $word;;
print $z_f2b; ## Z-axis front to back
b.{4800}r.{4800}o.{4800}w.{4800}s.{4800}e.{4800}r.{4800}u.{4800}k

my $z_b2f = join ".{$spacing}", reverse split '', $word;;
print $z_b2f;; ## Z-axis back to front
k.{4800}u.{4800}r.{4800}e.{4800}s.{4800}w.{4800}o.{4800}r.{4800}b

$spacing = 80 * 61 + 1;; ## Diagonally down and back
my $d_ftl2bbr = join ".{$spacing}", split '', $word;;
print $d_ftl2bbr;; ## Diagonal front top left to back bottom right
b.{4881}r.{4881}o.{4881}w.{4881}s.{4881}e.{4881}r.{4881}u.{4881}k

my $d_bbr2ftl = join ".{$spacing}", reverse split '', $word;;
print $d_bbr2ftl;; ## diagonal back bottom right to front top left
k.{4881}u.{4881}r.{4881}e.{4881}s.{4881}w.{4881}o.{4881}r.{4881}b

## The other twentytwo are generated similarly.