Select Code to Download

while (<FH>) {
  # localized $_
...
  }
  # previous $_
}

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