use Tie::File;
    use strict;
    use warnings;

    my $file = '$zielverzeichnis/hypohall/ibb42.ini';
    tie my @array,'Tie::File',$file or die $!;
    foreach my $line(@array)
    {
     if($line =~ /DatenPfad/)
     {
        chomp $line;
        $line .= "$zielverzeichnis\n";
     }
    }
    untie @array;