my $orig = $File::Find::name;
$orig =~ s/ 1\.mp3/.mp3/;
if (-e $orig){
   print "Counterpart exists\n";
}