#!/usr/bin/perl -w
use strict;

use File::Find;
find(\&process, '/Users/Shared/Music');

sub process {
    if (/[\d\D]*(?<!No\.)\s+1.mp3$/) {
        rename "$File::Find::name", "/Users/wrinkles/dupes/$_"
        or die $!;
        print "$File::Find::name removed. \n";
    }
}