Yet Another CPAN Grep

Parse-FieldPath ( P/PB/PBOYD/Parse-FieldPath-0.005.tar.gz, PBOYD, 2012; MetaCPAN )

Parse-FieldPath/lib/Parse/FieldPath.pm ( view source; MetaCPAN )

=> Cow::Teeth->new,
  );

And you want a hash containing some of those fields (perhaps to pass to
JSON::XS, or something). Then you can do this:

  use Parse::FieldPath qw/extract_fields/;

  my $cow_