Select Code to Download

#!perl
$a = 'A<div>B<div>C<div>D</div>E</div>F</div>G';
$a =~ m%<div>((?:(?!</div>).)*)</div>%;
print "=$1=\n";