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