Select Code to Download

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

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

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

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

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