Help for this page

Select Code to Download


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