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