Select Code to Download

#!/usr/bin/perl
#
...
a b c d e f g
h i j k l m n
o p q r s t u

my $cols = 26;
my $rows = 26;

__DATA__
aa ab ac ad ae af ag ah ai aj ak al am an ao ap aq ar as at au av aw a
+x ay az
...
xa xb xc xd xe xf xg xh xi xj xk xl xm xn xo xp xq xr xs xt xu xv xw x
+x xy xz
ya yb yc yd ye yf yg yh yi yj yk yl ym yn yo yp yq yr ys yt yu yv yw y
+x yy yz
za zb zc zd ze zf zg zh zi zj zk zl zm zn zo zp zq zr zs zt zu zv zw z
+x zy zz

my $place;
for my $row (0 .. $rows) {
...
    }
    print $/;
}

print join($/, @output), $/;