#Feb 19 15:22:21  206021 152221.684878 7219  INFO: Update certificate for user=(XXX) , updated by XXX
#Feb 19 15:22:21  206021 152221.694424 7220  INFO: MessageFromClient{msgId:UPDATE,state:{lastUpdatedDateTime:1427129443000,id:george,type:TakerUser,lastUpdatedBy:xxx,partyDBId:TakemeHome,permissions:{perms:[Process,SequesteredTrading],],r:0}}}}
##</code><code>##

#!/usr/bin/perl -w
use strict;
my $mesg = "";

#Feb 19 15:22:21  206021 152221.684878 7219  INFO: Update certificate for user=(XXX) , updated by XXX
#Feb 19 15:22:21  206021 152221.694424 7220  INFO: MessageFromClient{msgId:UPDATE,state:{lastUpdatedDateTime:1427129443000,id:george,type:TakerUser,lastUpdatedBy:xxx,partyDBId:TakemeHome,permissions:{perms:[Process,SequesteredTrading],],r:0}}}}  

my $search = "cat /pathtomydirectoryfiles/`date +%Y/%m/%d`/test/testlogs/*";
open FF, "$search |";
while (<FF>)
{
   
         if (/Update certificate.*/){

                #$count = 1 if /Updating certificate.*/;
                #if ($count >= 1 and $count <=2) {
                        #next if /Updating certificate/;

                        #print;
                        #$count++;

                        $mesg = "$_";
                       
                        print $mesg;
                      
                next;
        }

}

close FF;