#!/usr/bin/perl
use Modern::Perl;
use RTF::TEXT::Converter;
my $string;
my $object = RTF::TEXT::Converter->new(output => \$string);
$object->parse_stream( '..\Policies\Test\000144028.rtf' );

chomp $string;
my @string = split("\n", $string);

my $number_of_sigs = 0;

foreach my $line (@string) {
    chomp $line;
	if ($line =~ m/Date of Last Update:(.*)/){
	   my $date = $1;
	   $date =~ s/^\s+//;
	   my @date_of_last_update = split (/ /, $date);
	   print "Date of last update is: $date_of_last_update[0]\n";
	}
	if ($line =~ m/Document #:(.*)/){
	   print "\nDocument number is $1\n";
	}
	# Sign-Off Approvals  
    if ($line =~/_____\/_____\/_____/){
	   # print $line;
	   $number_of_sigs ++;
   }
}
print "\nnumber of signatures is $number_of_sigs \n";