my @rules = (
  "^dict" => sub {
    return $_[1]{key} =~ /^(?:status|subnet|gateway|netmask|data)$/;
  },
  dict => sub {
    my $d = $_[1];
    return if $d->{key} eq 'data';
    print "$d->{key}: $d->{value}\n";
  },
  value => 'content',
);