#!/usr/bin/perl

use warnings;
use strict;

my $verzeichnis = "C:\\Temp";

opendir(my $fhDir, $verzeichnis) or die $!;
my @files = grep { $_ =~ m/^\w{3}\d{8}\.txt$/ } readdir($fhDir);
closedir($fhDir) or die $!;

for my $dateiEin (@files) {
 
	my $dateiAus = $dateiEin."neuerDateiname";
	
	rename($dateiEin, $dateiAus);

} # for