Select Code to Download

{
    my @ruleset;
...
        return();
    }
}

define_rules( <<'EOF' );
# careful - all whitespace is significant in this format.
...
  # default. Unfortunately, this "comment" isn't optional. :-(
    key = other
EOF

    $family = trim($family);
    ( undef, $family_release ) = $family_release =~ /(P|V)(\d+)*/;
...

    $people{$user}{$key}++;
    $people{$user}{TOTAL}++;