Select Code to Download

use strict;
use warnings;
...
$html =~ s/\<\?perl(.*?)\?\>/(sub{$1})->()/gisee;

print $html;