my @regex_tokens =
      map {
	my $yp = YAPE::Regex->new($_);
	my $str = '';
	my $token;
	while ($token = $yp->next()) {
		$str .= $token->string() .
		        '(?:\z(?{$End_Of_String++})(?!)|)';
	}
	qr/$str/;
      }
      map {
        if ( not ref($_) )
        {
            qr/\Q$_\E/;
        }
        elsif ( ref($_) eq 'Regexp' ) {
            $_;
        }
        else {
            my $string = "$_";
            qr/\Q$string\E/;
        }
      } @terms;