sub filehandle_parse {
    my $fh = shift;
    string_parse(do { local $/; <$fh> });
  }