#!perl -w

use strict;

my $dir = "E:/Perl/bin/test";
chdir($dir);

opendir(DIR, $dir);
	foreach my $file(readdir(DIR)) {
 		if(!-d $file ) {
	
			if($file =~/\.HID$/) {
				my $cut = substr($file, -4); #HIER STIMMT WAS NICHT
				rename($file, $cut);
		}
	}
}
	#if(!$file =~/^\./) { rename($file, "$file\.HID"); }
closedir(DIR);