remove cpan packlist and content

p5_ls_packlist.pl

#! /usr/bin/perl
# usage: perl p5_ls_packlist.pl Perlude MARC::MIR | xargs rm 

use Modern::Perl;
use File::Find::Rule;
use File::Slurp;

my $matches = do {
    s,::,/,g for my @path = @ARGV;
    my $pattern = sprintf '/(?:%s)/.packlist$', join '|', @path;
    say "qr{$pattern}";
    qr{$pattern};
};

map { say for (map {chomp; $_ } read_file $_), $_ }
grep { $_ ~~ $matches } 
    File::Find::Rule
    -> file
    -> name('.packlist')
    -> in(@INC);