$VAR1 = {
          'keyword' => [
                         '(?:[Xx]\\-[Mm][Ee][Nn]|(?:\\Ｘ|\\・\・\\―\|(?:\\Ｍ|\\・\・(?:\\Ｅ|\\・\・(?:\\Ｎ|\\・\・)'
                       ],
          'is_tree' => undef,
          'nkeyword' => [],
          'rangebase' => 1169910000,
          'range' => 1,
          'end' => 86400,
          'andor' => 'a',
          'rangeend' => 1169996400,
          'rangestart' => 1169910000,
          'start' => 0
        };
$VAR2 = '$this->{search}{sub} = sub {
	undef $this->{search}{message};
	my $beg = $this->{search}{count};
	for my $buffer (@{$this->{search}{data}}[$beg..6514]) {
		$this->{search}{count}++;
		my @message = @$buffer;
		if ($message[0]) {
			next if ($message[0] < 1169910000);
			last if ($message[0] > 1169996400);
		}

$message[6] =~ s/<[^>]*>//g;

		if (grep(/(?:[Xx]\\-[Mm][Ee][Nn]|(?:\\Ｘ|\\・\・\\―\|(?:\\Ｍ|\\・\・(?:\\Ｅ|\\・\・(?:\\Ｎ|\\・\・)/, @message[6,8,9])
) {
			$this->{search}{hit}++;
			$this->{search}{message} = $buffer;
			last;
		}
	}
};
';

-->