while (<>) {
  ...             # your program goes here
}

##</code><code>##

while(<>){
  / /, $;{$`}++}{print $_, $/ ^= "*" for %  # this line is what
                                            # was inside the single quotes
}

##</code><code>##

while(<>){
  / /, $;{$`}++
}
{
  print $_, $/ ^= "*" for %
}

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)