#!/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";
  }
}