Software gesucht die Dateinamen nach Sonderzeichen durchsucht

#!/usr/bin/perl

use strict ;
use warnings ;
use File::Copy ;

opendir THISDIR, "." ;  
my @files = readdir THISDIR ;
my ( $old, $new ) ;
foreach $old ( @files ) {
        $new = $old ;
        $new =~ s/ - /-/g ;
        $new =~ s/ /_/g ;
        $new =~ s/ä/ae/g ;
        $new =~ s/Ä/Ae/g ;
        $new =~ s/ö/oe/g ;
        $new =~ s/Ö/Oe/g ;
        $new =~ s/ü/ue/g ;
        $new =~ s/Ü/Ue/g ;
        $new =~ s/ß/ss/g ;
        $new =~ s/,/./g ;
        $new =~ s/'/./g ;  
        $new =~ s/\(//g ;
        $new =~ s/\)//g ;
        $new =~ s/&/und/g ;
        #print " alter Dateiname: $old \n" ; 
        #print " neuer Dateiname: $new \n" ; 
        next if $old eq $new ;
        move ( $old, $new ) ;
}

 ......
        print " alter Dateiname: $old \n" ;  
        print " neuer Dateiname: $new \n" ;  
        #next if $old eq $new ;
        #move ( $old, $new ) ;