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