sub search { my ($target, $parts, $used) = @_;