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

who|perl -nle'/ /,$;{$`}++}{print"@l"while@l=each%'

In Section Seekers of Perl Wisdom