if($line =~ /^.*:agent_id=>(.+?),/){ 
 
            my $agent_id=$1;
            my $agent_id =~ s/\"//g;
            my @array=$agent_id;
            print $array[0];
}