alias mfilter {
var %a = $1,%b = $+(/,$chr(40),[,$remove(*?&,$3),],$chr(41),/g),%c = $2
%c = $regsubex(%c,%b,$replace(\1,&,\S+,*,.*,?,.))
%c = $regsubex(%c,$+(/,$chr(40),[,$3,],$chr(41),/g),\\1)
tokenize 32 %a
!filter $+(-,$iif($prop = c,c),$iif($left($1,1) = @,w,f),$iif($left($2,1) = @,w,f),g) $1 $2 %c
}