ack 'use 'の出力ファイルから仕様モジュールの名前を抜き出す

find-modules-from-ack.pl

use Path::Class;
use List::MoreUtils qw/uniq/;

my $file = file(__FILE__)->dir->file('ack_log.txt');
my @lines = $file->slurp;
my $exclude = 'exclude_string';

my @modules = uniq(
    grep {
        $_ !~ /$exclude/;
    }
    map {
        $_ =~ /.+use ([A-Z]{1}[\w:]+)/;
    } @lines
);

@modules;