my @searchTexts = split (/and|or/i,$query);
foreach my $text (@searchtexts) {
   $text =~ s/^\s+//;
   $text =~ s/\s+$//;
   print "$text\n";
}

##</code><code>##

foreach (split /and|or/i,$query) {
  s/^\s*(.*?)\s*$/$1/;
  print "$_\n";
}  

##</code><code>##

print join("\n",map {/^\s*(.*?)\s*$/;$1} split(/and|or/i,$query)) . "\n";

##</code><code>##

print join("n\",split(/\s*(?:and|or)\s*/,$query)) . "\n";

##</code><code>##

$query =~ s/\s*(?:and|or)\s*/\n/g;
print "$query\n";