open my $f, '+<', $filename or die $!;
my daten = do {local $/; <$f>};
tu_was_mit($daten);
seek($f, 0, 0) or die $!;
truncate($f, 0) or die $!;
print $f $daten or die $!;
close $f or die $!;