Select Code to Download

#!/usr/bin/perl -w

...
    print "\n";
    <STDIN>;      # Wait for user to hit [RETURN]
}

=== Character ' ' ===
OoOO oOo.ooOoO ooO o  . oOOOOOO.OO oo . O o.o.Oo...O..OoOOooOO oooo..O
+OOo......O
...
oOO"".o"OOo"oO.Ooo.""oOO"o."o"oOOoOooO.o..Oo.o"oOO"oOOoo".."O."Oo."O."
+"O"O"..O"o
"o."o".oO"O.OooO.."oo"."""...o..o."O".O.O"o...""..OO"o"o.""Oo"O."o"Ooo
+Oo".o""...
oO...o""OOO.".O.oOOoo"oo".o."o"."oo.o"""OO."o.o.O.o.."o."o.""..O"o"o"O
+oO."."OOo"

#foreach (32 .. 126) {
#    my $c = chr($_);
...
    my $c = chr($_);
    try_char($c);
} (32 .. 126);

sub try_char {
    ...
...
    <STDIN>;      # Wait for user to hit [RETURN]
    print "TFD> Leaving subroutine 'try_char()' ...\n"
}

sub try_char {
    my ($new_char) = @_;
...
    my @chars = qw( . o O );
    ...
}