while ( $line = <> )
        {
                if ($line =~ m/^(\[\d\d\d\d[-]\d\d[-]\d\d \d\d[:]\d\d[:]\d\d[,]\d\d\d\]) (\[\S+\]) (\S+) (\'\d\d?\d?\') (\S+ \S+) (\'.*\') (\(.*\))  (\S+) ([
-]) (.*)/)
                        {
                        print $1;
                        print $2;
                        print $3;
                        print $4;
                        print $5;
                        print $6;
                        print $7;
                        print "$8 ";
                        print "$9 ";
                        print "$10 \n";

                        }

        }