#!/usr/bin/perl
use strict;
use warnings;

my $line = '<div id="roguebin-response-35911" class="bin-response"></div>';

if ($line =~ /<div.+?(<\/div)+/)
{
    print "line matched\n";

    if (defined $1)
    {
        print "right after match, 1 is defined\n";
    }
}