#!/usr/bin/env perl
use strict;
use warnings;
use CPAN::Checksums qw/updatedir/;
use File::Find;

sub wanted { 
    return unless 
        -d $File::Find::name &&
        $File::Find::name =~ m{authors/id/./../.+$};
    print "$File::Find::name\n";    
    updatedir( $File::Find::name );
}

find( { wanted => \&wanted, no_chdir => 1 }, q{.} );