my @words = split /\W+/, 'The funcdamental particle is called a quark, Bob!';
my @parts = ();
for (@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";