use strict;
use CPANPLUS::Backend;
my $cb = CPANPLUS::Backend->new;
my @dists = ('^Text::');
for my $dist( @dists ) {
    my @res = $cb->search(
                          type  => 'module',
                          allow => [qr/$dist/],
                         );
    print $_->module, $/ for @res;
}