my @keepers;
 for my $q ( split /[^-\w']+/, $search_keys ) {
     push @keepers, $q;
     last if @keepers == 2;
 }