Select Code to Download

    ...
    my @hits = ();
...
    }                           # (end of this little "for loop"
    if ($got_a_pattern)  {
        ...

    ...
    for my $chr ( split //, $doword ) {
...
    }
    if ($got_a_pattern)  {
        ...

    foreach (@template2) {
        $_  =~ tr/ //d;
        if ($_ eq " ") { next; }
        push @template,$_;
    }

        tr/ //d;
        push @template, $_  if ($_);  # true when $_ is not an empty s
+tring