open( my $RF, "<", "$qpath/$qfile" ) || die "create_projekt_import.pl::ERROR 1.0: Kann die Datei zum Lesen nicht oeffnen: <$qpath/$qfile>\n";
   while( <$RF> ) { push( @a_quelldatei, $_ ); }
   close( $RF );
   
   foreach( @a_quelldatei )
      {
      
      # --- 8< --- schnipp
      
      if( $transtxt eq "letzteZeile"  &&  $key_zeil eq "ja" )
         {
         # --- 8< --- schnipp
         
         open( my $WF_2, ">", "$qpath/TRANSLATE/$trans_file" ) || die "change_language.pl::FATAL 1.1: Kann die Datei zum Schreiben nicht oeffnen: <$qpath/TRANSLATE/$trans_file>\n";
         flock(   $WF_2, LOCK_EX ) || die "change_language.pl::FATAL 1.2: Lock konnte nicht druchgefuehrt werden";
         print    $WF_2 @a_TranslateText;
         close(   $WF_2 );
         
         # --- 8< --- schnipp
         } #EO if transtxt eq letzteZeile   (:EOT)
      
      } #EO foreach( a_quelldatai )