if ( $response->is_success ) { my $tp = HTML::TokeParser->new( \$response->decoded_content ) || die "Can't open: $!"; while ( my $token = $tp->get_tag('img') ) { print $token->[1]->{'src'}, qq{\n}; } } else { print $response->decoded_content; die $response->status_line; } __END__ Starting...


Success!http://www.projectwonderful.com/nojs.php?id=39770&type=5 http://www.questionablecontent.net/images/patreonad.png ../images/logo14.png http://www.questionablecontent.net/comics/2845.png http://www.questionablecontent.net/images/1s1k.gif http://www.questionablecontent.net/images/station.gif http://www.questionablecontent.net/images/qc-vol04.jpg http://www.questionablecontent.net/images/yelingboard.jpg http://www.questionablecontent.net/images/18x24.jpg http://www.questionablecontent.net/images/mlgshirt.jpg ../images/ag.gif http://api.flattr.com/button/flattr-badge-large.png http://www.questionablecontent.net/images/patreonad2.png http://www.projectwonderful.com/nojs.php?id=138&type=2