#!/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;
}