sub handle_char {
  my ($expat, $string) = @_;
  ...

}