my ($user, $group, $connected, $type) 
   = $record =~ /^User \[(\w+)\] Group \[(\w+)\] (\w+), Session Type: (\w+)$/;