in reply to Re^3: parsing output of UNIX `who` command (golf)
in thread parsing output of UNIX `who` command

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

[download]

In Section Seekers of Perl Wisdom