my $result=$txt;
1 while($restult=~s!^.*?<div[^>]*>(.*)</div>.*?$!$1!s);
print $result;