Re^2: Remove (nearly) duplicate files recursively

[wrinkles]

in reply to Re: Remove (nearly) duplicate files recursively
in thread Remove (nearly) duplicate files recursively

Thanks moritz, here's the updated code:

#!/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";
        }
}