$ExcelSheet    = getcwd."\\"."Sheet";
	$ExcelSheet    =~ s/\//\\/g;
	$Win32::OLE::Warn = 3;
	my $Excel = Win32::OLE->new('Excel.Application');
	$Excel->{Visible} = 0;		#0 is hidden, 1 is visible
	$Excel->{DisplayAlerts}=0;	#0 is hide alerts
	$Excel->{ScreenUpdating} =0; # 0 False
	my $ExcelReport = $Excel->Workbooks->Open("$ExcelSheet");
	my $Sheet=$ExcelReport->Worksheets(2);
	$Sheet->Activate;
 

@checkfiles=glob('*.doc');
	
foreach my $file (@checkfiles)
{ 
	
	my $document = Win32::OLE -> GetObject("$var");

	print "Extracting Text ...\n";
	my @array;
	my $paragraphs = $document->Paragraphs();
	my $enumerate = new Win32::OLE::Enum($paragraphs);
	while(my $paragraph = $enumerate->Next())
	{

		my $text = $paragraph->{Range}->{Text}; 
		  $text =~ s/[\n\r\t]//g;
		  $text =~ s/\x0B/\n/g;
		  $text =~ s/\x07//g;
      
		 
		 chomp $text;
		
		my $Data .= $text;
		
		@array=split(/\.$/,$Data);
		
		foreach my $line( @array)
		{
				
			if($line =~ m/starts here$/)