#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Path::Iterator::Rule;

my $file = 'ABC - The Lexicon of Love (1982) {1996 Remaster} V0what.cd/16 Look Of Love (Live).mp3';
my @dirs = '/Volumes/public_files/music';

my $rule = Path::Iterator::Rule->new;
$rule->name($file);

my $search = $rule->iter( @dirs );

while ( my $found = $search->() ) {
  say $found;
}

__END__


##</code><code>##

$rule->name($file)
     ->size("> 1000");