sub search {
	my $terms = shift;
	my $pattern = join "|", split /\s+/, $terms;

	my @matches = 	$FORM{case} eq 'insensitive' ?
		grep {/$pattern/i} @names 
		: grep { /$pattern/ } @names;
	return \@matches;
}