Help for this page
while(<>){ / /, $;{$`}++ } print $_, $/ ^= "*" for % } # <--- this hanging bit
who|perl -ne'/ /,$;{$`}++}{print$_,$/^="*"for%' ^^^^ what?