Just out of curiosity: Would the RTF::TEXT::Converter module work instead? Have not used it myself, but was theorizing that it might be simpler to process plain text output from this module...?

Different approach... Just a thought...

Update:

I became curious about this so tried the following:

#!/usr/bin/perl
use Modern::Perl;
use RTF::TEXT::Converter;
my $string;
my $object = RTF::TEXT::Converter->new(output => \$string);
$object->parse_stream( "/home/wjw/tmp/RTF_test.rtf" );
chomp $string;
my @string = split("\n", $string);
foreach my $line (@string) {
    chomp $line;
    next if $line !~ /\w+/;
    next if $line =~ /^\_+\/\_+\/\_+$/;
    say $line;
}

[download]

.. which is in-complete and with a leaning toothpick eye-sore in the second regex, but gets one to the point of only having to deal with the text.

Output is as follows:

Use of uninitialized value $cstylename in string ne at /home/wjw/perl5
+/perlbrew/perls/perl-5.20.0/lib/site_perl/5.20.0/RTF/Control.pm line 
+1489, <GEN1> line 16.
Document #: 000    Version #: 1
Document Owner:  Someone    Date of Last Update: 10/15/2013
Written by: Someone    Status: Approved
General Description
Purpose
Definitions
Procedures
Sign-Off Approvals
Jane Doe, CEO                                Date
John Doe, CFO                                 Date

[download]

I did not dive into the warning issued. Note that the install of the referred to module actually depends on two others, one of which I think you were using already. 

cpanm RTF::TEXT::Converter
--> Working on RTF::TEXT::Converter
Fetching http://www.cpan.org/authors/id/S/SA/SARGIE/RTF-Parser-1.12.ta
+r.gz ... OK
Configuring RTF-Parser-1.12 ... OK
==> Found dependencies: RTF::Tokenizer
--> Working on RTF::Tokenizer
Fetching http://www.cpan.org/authors/id/S/SA/SARGIE/RTF-Tokenizer-1.18
+.tar.gz ... OK
Configuring RTF-Tokenizer-1.18 ... OK
Building and testing RTF-Tokenizer-1.18 ... OK
Successfully installed RTF-Tokenizer-1.18
Building and testing RTF-Parser-1.12 ... OK
Successfully installed RTF-Parser-1.12
2 distributions installed

[download]

...the majority is always wrong, and always the last to know about it...

Insanity: Doing the same thing over and over again and expecting different results...

A solution is nothing more than a clearly stated problem...otherwise, the problem is not a problem, it is a facct

wjw

In reply to Re: How can I find a line in a RTF file? by wjw
in thread How can I find a line in a RTF file? by kevyt

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.