sub match_all_ways {
    use vars '$count';
    my ($string, $regex) = @_;
    local $count = 0;
    my $incr = qr/(?{$count++})/;
    $string =~ /(?:$regex)$incr(?!)/;
    return $count;
}