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

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

sub process {
    my $song = $File::Find::name;
    my $orig = $song;
    $orig =~ s/ 1\.mp3/.mp3/;
        if ( (m/[\d\D]*\s+1.mp3$/) && (-e  $orig) ){
            rename "$song", "/Users/wrinkles/dupes/$_"
            or die $!;
            print "$song removed. \n";
        }
}