I was previously given the example:

my $subscribers = $ua->get( $url )->result->json->{subscribers_count};
[download]

which I modified (based on this JSON Tutorial) to:

my $feedurl = $ua->get($url)->result->json->{feeds.meta.links.feed};
[download]

which gave error message:

Bareword "feeds" not allowed while "strict subs" in use
[download]

I'll keep exploring but would appreciate any hints.

my $feedurl = $ua->get($url)->result->json->{feeds.meta.links.feed}; which gave error message: Bareword "feeds" not allowed while "strict subs" in use

Only very simple barewords are automatically quoted in $hash{...} keys, the . is seen as an operator here. Try ...->json->{'feeds.meta.links.feed'};.

Update: See Re: hash key.

Lets take it back a step, there's various ways to achieve what you want. Perhaps this example is clearer:

#!/usr/bin/perl

use strict;
use warnings;
use Mojo::UserAgent;

my $url = 'https://public-api.wordpress.com/rest/v1/read/feed/?url=the
+-art-of-autism.com';

my $ua = Mojo::UserAgent->new;

my $json = $ua->get( $url )->res->json; 
for my $feed ( @{$json->{feeds}} ){
  if ( $feed->{meta}{links}{feed} ){
    print "$feed->{meta}{links}{feed}\n";
  }
}
[download]

For each entry in feeds, print the value of meta->links->feed.

Update: see Re^4: Running JavaScript from within Perl (or just use the API).

marto, with regards to your reply on Sep 21, 2019 at 16:31 UTC (which I couldn't figure out how to reply to directly): the code worked (and I'll use it) but gave a warning of "Use of uninitialized value in concatenation (.) or string" at the following line:

  print "$feed->{meta}{links}{feed}\n";
[download]

Thanks for solving the problem, albeit with a confusing warning.

You've edited your site and the JSON now looks like:

{
  "feeds": [
    {
      "subscribe_URL": "https:\/\/the-art-of-autism.com\/feed\/",
      "feed_ID": "34259929",
      "meta": {
        "links": {
          "feed": "https:\/\/public-api.wordpress.com\/rest\/v1\/read\
+/feed\/34259929",
          "site": "https:\/\/public-api.wordpress.com\/rest\/v1\/read\
+/sites\/57595012"
        }
      }
    },
    {
      "subscribe_URL": "https:\/\/the-art-of-autism.com\/sample-page-2
+\/feed\/",
      "feed_ID": "",
      "meta": {
        "links": {
          
        }
      }
    },
    {
      "subscribe_URL": "http:\/\/the-art-of-autism.com\/feed\/",
      "feed_ID": "34259929",
      "meta": {
        "links": {
          "feed": "https:\/\/public-api.wordpress.com\/rest\/v1\/read\
+/feed\/34259929",
          "site": "https:\/\/public-api.wordpress.com\/rest\/v1\/read\
+/sites\/57595012"
        }
      }
    }
  ]
}
[download]

Note Sample page 2 has no links. A fix for the code:

my $json = $ua->get( $url )->res->json; 
for my $feed ( @{$json->{feeds}} ){
  
  if ( $feed->{meta}{links}{feed} ){
    print "$feed->{meta}{links}{feed}\n";
  }
}
[download]

"which I couldn't figure out how to reply to directly" If viewing a node directly you'll see a link reading "Comment on {Node title here}", if viewing in thread mode you'll see a link titled "[reply]" at the bottom right of each reply.