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

##</code><code>##

sub foo {
  $_ = shift;  # TSK!  local $_
  tr/aeiou/AEIOU/;
  return $_;
}