#!/usr/bin/perl

use strict;
use warnings;

my $file='test.txt';
my $line=30;
my $newdata=<<EOF;
neue zeile 1
neue zeile 2
neue zeile 3
neue zeile 4
neue zeile 5
neue zeile 6
neue zeile 7
neue zeile 8
neue zeile 9
EOF

{
 open(my $data, '+<', $file) or die "konnte $file nicht öffnen ($!)\n";

 #Zeile $line finden und Zeilenposition merken
 <$data> for(1..$line);
 my $pos=tell($data);

 #rest in ein String packen
 local $/=undef;
 my $rest=<$data>;
 
 # zur gemerkten Position gehen und neue Datan einfügen
 seek($data,$pos,0);
 print $data $newdata.$rest;

 close($data);
}

#!/usr/bin/perl

use strict;
use warnings;

my $file='test.txt';
my $line=30;
my $newdata=<<EOF;
neue zeile 1
neue zeile 2
neue zeile 3
neue zeile 4
neue zeile 5
neue zeile 6
neue zeile 7
neue zeile 8
neue zeile 9
EOF

{
 open(my $data, '+<', $file) or die "konnte $file nicht öffnen ($!)\n";

 #alles vor der Einfügeposition merken
 my $vor='';
 ($vor.=<$data>)for(1..$line);

 #rest in ein String packen
 local $/=undef;
 my $rest=<$data>;
 
 # zum Anfang gehen und Daten schreiben
 seek($data,0,0);
 print $data $vor.$newdata.$rest;

 close($data);
}

#!/usr/bin/perl

use strict;
use warnings;

my $file='test.txt';
my $line=30;
my $newdata=<<EOF;
neue zeile 1
neue zeile 2
neue zeile 3
neue zeile 4
neue zeile 5
neue zeile 6
neue zeile 7
neue zeile 8
neue zeile 9
EOF

{
 open(my $data, '+<', $file) or die "konnte $file nicht öffnen ($!)\n";

 #Zeile $line finden und Zeilenposition merken
 <$data> for(1..$line);
 my $pos=tell($data);

 #rest in um die länge der Zeichen, die eingefügt werden sollen, verschieben
 my $length=length($newdata);
 seek($data,0,2);
 my $temppos=tell($data);
 print $data " "x$length;
 while($temppos>$pos)
 {
  $temppos--;
  seek($data,$temppos,0);
  read($data, my $z,1);
  seek($data,$temppos+$length,0);
  print $data $z;
 }

 # zur gemerkten Position gehen und neue Datan einfügen
 seek($data,$pos,0);
 print $data $newdata;

 close($data);
}

open my $fh, '<:binary', $filename  or die $!;
my $text = do { local $/ = undef; <$fh> };
close $fh  or die $!;

substr $text, 500, 0, 'eingefügter text';

open my $fh, '>:binary', $filename  or die $!;
print {$fh} $text  or die $!;
close $fh  or die $!;