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