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

my $input = '"non$volatile display" and ((timer oR count$3 Or display) near5 hour).ccls. NOT (LCD).ab.';

my @omissions = qw(terms and or not with near same xor adj);
my $omit = join("|",@omissions);

$input =~ s/\..*?\.//g;
$input =~ s/$omit//ig;
my @searchterms = ($input =~ m/".+?"|[a-zA-Z][\w\$]+/gi);
print "@searchterms";

#prints:
#"non$volatile display" timer count$3 display hour LCD