#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

{
    # jeder block ende mit folgendem string
    local $/ = "</Texteinmischdefinitionen>\n";

    # lese blockweise ein
    while ( my $block = <DATA> ) {
        $block =~ s{(.+)(<Kursstamm>.+?)(<Texteinmischdefinitionen>.+</Texteinmischdefinitionen>\n)$}{$1$3$2}gsm;
        print $block;
    }
}

__DATA__
<Kursstamm>1
blabla1
blabla2
blabla3
blabla4
<Kursstamm>2
blabla1
blabla2
blabla3
blabla4
<Kursstamm>3
blabla1
blabla2
blabla3
blabla4
<Kursstamm>4
blabla1
blabla2
blabla3
blabla4
<Texteinmischdefinitionen>
1
</Texteinmischdefinitionen>
<Kursstamm>5
blabla1
blabla2
blabla3
blabla4
<Kursstamm>6
blabla1
blabla2
blabla3
blabla4
<Kursstamm>7
blabla1
<Texteinmischdefinitionen>
2
</Texteinmischdefinitionen>