my @parts = split /\s*(<<[^>]+>>)\s*/, $text;