use strict;
 use warnings;
 use Mojo;
 use feature 'say';
 my $ua = Mojo::UserAgent->new;
 my $array=$ua->get('http://blogs.perl.org/')->res->dom->find('div > p ')->map('text')->join("\n");
 my @arr=split("\n",$array);
 print "\n".$arr[0]."\n";