Select Code to Download

my $wordNum = 0;
foreach my $boxLine ( @empty_square) {
...
        $boxLine =~ s/\./ /g;
    }
}