Select Code to Download

my $i;
my $format = "format STDOUT =\n"
...
for $i (0..9) {
    write;
}

my $i;

...
for $i (0..9) {
    write;
}

my $picture = '@||| @' . '<' x $longest . "@<<<<\n";
for my $i (0..9) {
    formline($picture, $i, $results[$i]->[0], $results[$i]->[1]);
}
print $^A; # use English; print $ACCUMULATOR;