- module: Filter::Rule
    rule:
      - module: Expression
        expression: |
          my $threshold = 0.3;
          return 1 unless $args->{entry}->body;
          my $body = $args->{entry}->body->plaintext;
          my $len  = length $body;
          $body =~ s/[^\?]//g;
          my $rate = length($body) / $len;
          $rate < $threshold;

もっといい方法あるのかなぁ。というか既にありそうなんだけどみつけられなかった