use strict;
 use warnings;
 use feature 'say';

 use Mojo;

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

 my $array = $ua->get('http://www.sqlite.org/expridx.html')->res->dom->find('div > p ')->map('all_text')->join("\n");

 
 print "\n$array\n";