$ who|perl -MO=Deparse -ne'/ /,$;{$`}++}{print$_,$/^="*"for%'
LINE: while (defined($_ = <ARGV>)) {
    / /, ++$;{$`};
}
{
    foreach $_ (%;) {
        print $_, $/ ^= '*';
    }
}