#!/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);
}