while (defined(my $match = $matcher->next)) {
        ...
    }