入力した文字列にマッチしない行を表示する custom matcher

とある人の要望を勘違いして作ってしまったのですが,
捨ててしまうのもあれなので載せておきます.

コード

#!/usr/bin/env perl
use strict;
use warnings;

my $query = shift;
my @queries = split /\s/, $query;

while (my $line = <STDIN>) {
    my $match = 0;
    for my $q (@queries) {
        if ($line =~ m{$q}) {
            $match = 1;
            last;
        }
    }
    print $line unless $match;
}

設定

以下を configファイル(~/.peco/config.json 等)に追加.
上記のファイルに実行権限をつけておいてください.

{
    "CustomMatcher": {
	"InvertMatch": [
		"/somepath/reverse.pl",
		"$QUERY"
	]
    }
}

イメージ