while (<IN>) {
        next if (/^\s*$/);
        chop;
        if (/^Username\:\s+([\w\s]+)\s+Owner\:\s+(.*)$/) {
                $username = $1;
                $desc = $2;
                print "$username,$desc,";
        }
        elsif (s/^(Last Login\:\s*)//) {
                ($login_times{"i"}, $login_times{"ni"}) = split /,/, $_;
                print "$login_times{\"i\"}, $login_times{\"ni\"}\n"; 
        }
        else {
                die "line invalid - $_, $!\n";
        }
}
close (IN);