my $text = 'Vorrede bla bla Anfang <<A>> Teil1 <<A>> Teil2 <<B>> Teil3 <<A>> Ende Nachrede.';
my @parts = split /\s*(<<[^>]+>>)\s*/, $text;

print join "\n", @parts;
print "\n";