qwinsta.exe |perl -ne "push @who, qq{$1=$2} if /^.{19}(\S+)\s+\d+\s+(\S+)/; END {print join',',@who}"