I discussed some of the options for parsing HTML and gave some example code here: "Two classic modules are HTML::Parser and HTML::TreeBuilder, but there are several others, such as Mojo::DOM. If the input is always XHTML, there's XML::Twig and many more XML-based modules."

If all you want to do is strip HTML tags, then this is a FAQ: How do I remove HTML from a string?

Use HTML::Strip, or HTML::FormatText which not only removes HTML but also attempts to do a little simple formatting of the resulting plain text.

Mojolicious contains an excellent tool kit that includes Mojo::UserAgent and Mojo::Dom. Here's a one liner:

perl -Mojo -E 'say g("perlmonks.org")->dom->at("title")->text'
[download]

Output:

      PerlMonks - The Monastery Gates
[download]

Minimally, Mojolicious requires no additional external dependencies --just a relatively recent Perl. The distribution size is around 2MB once it's unpacked and installed, and it takes about a minute to install:

cpanm Mojolicious
[download]

...or via your preferred module installation technique.

Mojo rocks.

See for example App::scrape, which is basically a simple application of HTML::Selector::XPath to extract data from HTML.

There also are many other general scrapers, like Web::Scraper, Web::Query.

Most of them build on something like HTML::TreeBuilder.

I second the suggestion of Mojo::DOM, however if you're trying to scrape google search results I suggest investigating their various APIs rather parsing results.

HTML::FormatText::Html2text is designed to do precisely that (as its name might suggest).

my $req = HTTP::Request->new(GET => 'https://www.google.com');
$req->content_type('application/json');
my $res = $ua->request($req);
[download]

Please edit your post including the initialization of $ua:

use LWP;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.google.com');
$req->content_type('application/json');
my $res = $ua->request($req);
[download]

Thank you. You could get the contents of the <title> tag just using a regular expression

my $title;
$res->content =~ m|<title>(.+?)</title>|i and $title = $1;
[download]

but see e.g. Re: Why this simple regex freeze my computer? for caveats.

"You could get the contents of the <title> tag just using a regular expression"

Solutions that use regular expressions to parse HTML will never be voted higher than those that actually use a parser. Also your assignment is very low value because it explicitly uses $1 when you could have instead captured the value directly (and safer too).

I'd downvote my answer, if I could, not only for the shameless plug.

Also your assignment is very low value because it explicitly uses $1 when you could have instead captured the value directly (and safer too).

Providing code for that end might significantly improve this subthread.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

thanks guys, thanks shmem. your idea has worked for me