Select Code to Download

## Find the number of blanks
while ($letters =~ /[^A-Z]/) {
    $letters =~ s/[^A-Z]//;
    $blanks++;
}