#!/usr/local/bin/perl
############################
use strict;
use warnings;
use Fcntl qw/O_RDONLY O_WRONLY O_CREAT O_EXCL/;

my $file = 'testinput.txt';
my $tmp = 'output.txt';

sysopen(INPUT, $file, O_RDONLY) or die "unable to open the input file";    #Datei wird systemnah, nur zum Lesen, geöffnet
sysopen(OUTPUT, $tmp, O_WRONLY | O_CREAT) or die "unable to open job2.inp: $!";

while(my $test = <INPUT>){
    if( $test =~ /testende/ ){
        print OUTPUT "das ist der eingefuegte Text\n";
    }
    print OUTPUT $test;
}
close (INPUT);
close (OUTPUT);

textEINS
testende

textZWEI
testende

#!/usr/local/bin/perl
############################
use strict;
use warnings;
use Fcntl qw/O_RDONLY O_WRONLY O_CREAT O_EXCL/;

my $file = 'testinput.txt';
my $tmp = 'output.txt';

my $new = "das ist der eingefuegte Text\n";

sysopen(INPUT, $file, O_RDONLY) or die "unable to open the input file";    #Datei wird systemnah, nur zum Lesen, geöffnet
sysopen(OUTPUT, $tmp, O_WRONLY | O_CREAT) or die "unable to open job2.inp: $!";

local $/ = "\ntestende";

while(my $entry = <INPUT>){
    $entry =~ s/testende/${new}testende/g;
    
    warn ">>$entry<<";
    
    print OUTPUT $entry;
}
close (INPUT);
close (OUTPUT);