while (my $found = $finder->next) {
    print $found->filename, "\n";

    last if $found->pathname =~ $end_condition;
    next if $found->pathname =~ $skip_condition;

    process($found);
}