#!/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