Select Code to Download

...
$content = get_content($url);
...
{
 print;
}

@divs = $content =~ m/<\s*div[^>]*>(.+?)<\s*\/div>/sig;