#!/usr/bin/perl
# your code goes here
$_=<DATA>;
while(/<div>((?0)|[^<]++|.)*?<\/div>/gs) {
print "Found block: ", $&, "\n"; }
__DATA__
<div>
<div>data1...... </div>
<div>data2......</div>
</div>
dflkgdlfkglkfmg drgg
<div>
<div>data3...... </div>
<div>data4......</div>
</div>
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpsb2NhbCAkLzsKJF89PERBVEE+OwoKd2hpbGUoLzxkaXY+KCg/MCl8W148XSsrfC4pKj88XC9kaXY+L2dzKSB7CglwcmludCAiRm91bmQgYmxvY2s6ICIsICQmLCAiXG4iOwp9CgpfX0RBVEFfXwo8ZGl2PgogICAgPGRpdj5kYXRhMS4uLi4uLiA8L2Rpdj4KICAgIDxkaXY+ZGF0YTIuLi4uLi48L2Rpdj4KPC9kaXY+CmRmbGtnZGxma2dsa2ZtZyBkcmdnCjxkaXY+CiAgICA8ZGl2PmRhdGEzLi4uLi4uIDwvZGl2PgogICAgPGRpdj5kYXRhNC4uLi4uLjwvZGl2Pgo8L2Rpdj4gIA==