who|perl -nle'/ /,$;{$`.$&}++}{print each%'