#!/usr/bin/perl -w
use strict;

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

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

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

##</code><code>##

line matched

##</code><code>##

#!/usr/bin/perl -w
use strict;

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

if ($line =~ /<div.+?(<\/div>)*$/)
{

	printf("line matched\n");

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