foreach $file (glob('*.rtf'))
{ 
    open(my $fh, $file) or die("Unable to open '$file': $!");  
    while (my $line = <$fh>)
    {
        if ($line =~ m/(Apple|Orange|Litchi)/i) 
        {
            $Sheet->Cells($row,$col-1)->{'Value'} = $file;
        }
    }
	 foreach my $files (glob('*.txt'))
	 { 
     open(my $fh1, $files) or die("Unable to open '$files': $!");  
	 if ( grep /$file/i, <$fh1> )
     {
     $Sheet->Cells($row,$col+1)->{'Value'} = $files;
	 }
	 else
	 {
	 $Sheet->Cells($row,$col+1)->{'Value'} = "No Text Files";
	 }
	 $row=$row+1;
	 close $fh1;
     }
	close($fh);
}