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