Select Code to Download

$bitfield = ....
my @fields = ( $modifier =~ m{ ([+-])  (\d+) }gxms ); # extract mods
...
        $trade_condition &= $negated    # clear a bit w/ negated AND
    }
}