#!/usr/bin/env perl

use strict;
use warnings;
use Mojo::DOM;
use Mojo::Util 'trim';

my $html = do {local $/ = undef; <DATA>};

my $dom = Mojo::DOM->new($html);

foreach my $div ($dom->find('div')->each) {

    printf "Found div with id [%s], class [%s] and content [%s]\n",
        $div->{'id'}       // '',
        $div->{'class'}    // '',
        trim($div->content // '');

}


__DATA__
<div id="roguebin-response-35911" class="bin-response"></div>
<div id="othertest-1" class="foobar">content here
</div>