my $code_ref = eval "sub{ m#INT $int# }" ; $rule->and($code_ref);