while(1) { check {RULE} my $x = some_call(); }