Select Code to Download

use strict;
use warnings;
...
    next unless grep { $matcher->($_) } @ips;
    print;
}

sub get_files {
    my (@dirs) = @_;
...

    return @files;
}