my $html =<<'HTML';
<div>
    <p>Code</p>
    <?perl 
        print "<b>Hello World</b>";    
    ?>
</div>
HTML

##</code><code>##

my $html =<<'HTML';
<div>
 <p>Code</p>
<?perl 
print " <b>Hello World</b>";    
?>
</div>
HTML