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