while (<CONF>)
{
    next unless ( /^(.+)\s(http:\/\/\S+)\s+(.+)$/ ); # just skip unusable lines

    my ( $NAME, $URL, $ALT ) = ( $1, $2, $3 );
    $http->reset;
    if ( $http->request( $URL ) != 200 ) {
        warn "cannot read from $URL ($NAME)\n";
        next;
    }
    if ( http->body() =~ /.../ ... ) {
        my $IMGURL = $1;
        ...
        $http->reset;
        if ( $http->request( $IMGURL ) != 200 ) {
            warn "drat! tried to get $IMGURL (for $NAME) but couldn't\n";
            next;
        }
        # OK, got the image... and so on...
    }
}