#!/usr/bin/perl

use warnings;
use strict;

my $verzeichnis = "PFAD";

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 = $verzeichnis."/".substr($dateiEin,0,- 4)."_f.txt";
	
	open(my $fhEin, "<", $verzeichnis."/".$dateiEin) or die $!;
	open(my $fhAus, ">", $dateiAus)                  or die $!;
	binmode($fhAus, ":utf8"); #output in utf8

	while(my $zeile = <$fhEin>) {
		chomp $zeile;
		
		# ...

		print $fhAus; # ...
		
	} # while

} # for