use strict;
use warnings;

my @dirMPDfiles;
opendir(DIRHANDLE, "./") || die "ERROR $!";
foreach my $name (readdir(DIRHANDLE))
{
	if( $name =~ /_Lodnn3\.nif/)
	{
		my @newName = split(/_Lodnn3\.nif/, $name);
#		print $newName[0];
		rename( $name , $newName[0].".nif");
	}
}
closedir(DIRHANDLE);