while (<FH>) {
  # localized $_
  for (split ' ') {
    # localized $_
  }
  # previous $_
}