my @vars = do {
    my %seen;
    grep !$seen{$_}++, $bool_func =~ /([a-zA-Z]\w*)/g;
};