who|perl -ne'/ /,$;{$`}++}{print$_,$/^="*"for%'
                        ^^^^ what?