Select Code to Download

my $str = q{$line};
<p>gives</p>
 <code>(?^:</div></div><div><div class="blue"></div></div>
)

(?^:</div></div>
)

(?^:
)

(?^:</div></div>
)