Select Code to Download

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