#!/usr/bin/perl -w
use strict;

my $searchstring = "aaaa OR bbbb OR cccc OR dddd";
my @words = split(/\s+/, $searchstring);
$searchstring =~ s/(\w+) ?(OR|NOT|AND)?/\(fieldname \= '$1'\) $2/g;
foreach (@words)
{
	next if /^(OR|AND|NOT)$/;
	$_ = "(fieldname = '$_')";
}

my $searchstring2 = join(' ', @words);

print "regex: $searchstring\nsplit/join:$searchstring2\n";