chomp( my $name = lc <$fh> );
  
  if ( $name eq 'bob jones' ) {
    die 'rejecting annoying person';
  }
  
  # Now I want to restore $name to its original mixture of upper and lower case