#! /usr/bin/env perl

use strict;
use warnings;
use 5.0080;

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


# trial 1
$html =~ s/\<\?perl(.*?)\?\>/$1/gisee;

# trial 2
$html =~ s/\<\?perl(.*?)\?\>/(sub{$1})->()/gisee;

print $html;

##</code><code>##

<b>Hello World</b><div>
	<p>Code</p>
	1
</div>

##</code><code>##

<div>
 <p>Code</p>
 <b>Hello World</b>
</div>