Select Code to Download

column_name in ('FOO', 'BAR', 'BAZ')

(column_name = 'FOO' or column_name = 'BAR' or column_name = 'BAZ')

(column_name like 'FO%' or column_name like 'B%' or column_name = 'CAT
+')

sub generate_criteria {
   my ($ColName, $Criteria) = @_;
...
   }
   return join(" ", "(", @ret, ")");
}

my @fields = map { s/'/''/g; $_ } split /\|/, $Criteria;

sub generate_criteria {
   my ($ColName, $Criteria) = @_;
...

   return "( " . join(" or ", map { "$ColName LIKE '$_'" } @fields) . 
+" )";
}