use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock SEEK_SET SEEK_CUR);
use utf8;

sysopen my $fh, "datei.txt", O_RDWR or die "Kann Datei nicht öffnen: $!\n";
flock $fh, LOCK_EX or die "Kann Datei nicht sperren: $!\n";
binmode $fh, ':utf8';

my $pos = 0;

while (my $line = <$fh>) {
    chomp($line);
    my ($feld1, $feld2, $feld3) = split /\xA1/, $line;
    if ($feld1 eq "EEEEE") {
        seek($fh, $pos, SEEK_SET);
        print $fh "E-E-E¡$feld2¡$feld3\n";
    };  
    $pos = tell($fh);
}

close $fh;