#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
# remove milliseconds
s/(?<= \d\d:\d\d:\d\d)\.\d{3}//;
# convert session id to process id
s/\[[0-9a-zA-Z]+\.([0-9a-zA-Z]+)\]/"[" . hex($1) . "]"/e;
print;
}