Select Code to Download

sub spelled {
    my $word = shift;
...
        print "[$out]<BR>\n";
    }
}

        print "." if ($charCount % 4) == 0;
        print "o" if ($charCount % 4) == 1;
        print "O" if ($charCount % 4) == 2;
        print "o" if ($charCount % 4) == 3;