Select Code to Download

#!/usr/bin/perl -w

...
my $n = 20;
$txt =~ m/(.{$n})/gs;
print $1;

#!/usr/bin/perl -w

...
for (my $i=0; $i<20; $i++) {
    print $a[$i];
}