sub filehandle_parse {
    my $fh = shift;
    my $string = do { local $/; <$fh> };
    ... work on $string
  }