use warnings; use strict; 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;