#! perl use Modern::Perl; use LWP::Simple; use URI::Escape; use HTML::TreeBuilder; use Try::Tiny; my $look_for = "perl"; my $contents = get "http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dstripbooks&field-keywords=" . uri_escape($look_for); my $html = HTML::TreeBuilder->new_from_content($contents); for my $item ($html->look_down(id => qr/result_\d+/)) { # $item->dump; # find out structure of HTML my $author = try { $item->look_down(class => 'ptBrand')->as_trimmed_text }; print "$author\n"; } $html->delete;