line 1485 -- if ($rule =~ s/\s*\bonly\(([^\)]+)\)//) { ++ if ($rule =~ s/^((?:(?:no\s+)?content\s+)?by\s+(\S+))\s+only\(([^\)]+)\)$/$1/) { ++ my %only; ++ $only{$2} = undef; ++ @only{split /\s*,\s*/, $3} = (); ++ foreach (keys %$data) { ++ delete $data->{$_} unless exists $only{$_}; ++ } ++ } elsif ($rule =~ s/\s*\bonly\(([^\)]+)\)//) {