my @words = split /\W+/, 'The funcdamental particle is called a quark, Bob!';
my @long_words=();
for (@words) {
  push @long_words, $1 if (/^(\w{3,})$/);
}
my @parts = ();
for (@long_words) {
  push @parts, "Answer like '%$_%'";
}
my $where_clause = join (" or\n",@parts);

my $sql = "SELECT RowID, Question,Answer
             FROM Grade_Theory
            WHERE $where_clause";

print "$sql\n";