my @sentence = do {
    local $/;
    open my $fh, "<", $filename;
    split /(?=^>text \d+$)/m, <$fh>;
};