my @files;
my $rule = rule(file => start => '/somedir');

while(my $file = $rule->match) {
  last if $file =~ /^d/i;
  push @files => $file;
}