#!/usr/bin/perl
#use warnings;
#use strict;
use 5.010;

open(IN, "logs.txt") or die "can not open file";

my %users;
my %searches;

while (<IN>){
   if (/BIND/){
           my ($conn) = /conn=(\d+)\s/;
           my ($uid) = /uid=(.*?),/;
           $users{$conn} .= exists $users{$conn} ? " $uid, " : $uid;
           print %users;
           }
           if (/SRCH=Q/){
           my ($conn1) = /conn=(\d+)\s/;
           my (@line) = split(" ",$_);
           my $timestamp = "$line[0]\n";
           $searches{$conn1} = exists $searches{$conn1} ? "  $timestamp," : $timestamp;
           print %searches;
   }
}