mix3/zoi_urls.pl

## zoi_urls.pl
use 5.018;
use strict;
use warnings;
use utf8;
use Furl;

sub zoi_urls {
    state $urls = do {
        my $furl = Furl->new;
        my @urls = ();
        my $res  = $furl->get("http://zoi.herokuapp.com/js/services.js");
        for my $line ( split "\n", $res->content ) {
            if ( $line =~ /image:\s+'(.+?):large'/ ) {
                push @urls, $1;
            }
        }
        \@urls;
    };
}

for my $url ( @{ zoi_urls() } ) {
    print $url, "\n";
}
	use 5.018;
	use strict;
	use warnings;
	use utf8;
	use Furl;

	sub zoi_urls {
	state $urls = do {
	my $furl = Furl->new;
	my @urls = ();
	my $res = $furl->get("http://zoi.herokuapp.com/js/services.js");
	for my $line ( split "\n", $res->content ) {
	if ( $line =~ /image:\s+'(.+?):large'/ ) {
	push @urls, $1;
	}
	}
	\@urls;
	};
	}

	for my $url ( @{ zoi_urls() } ) {
	print $url, "\n";
	}