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

##</code><code>##

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

##</code><code>##

(?^:
)

##</code><code>##

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