my $c = ...

my $perlcode = 'print $c->get_html( 'some text' );';
$template_file =~ s/{PERL_CODE}/$perlcode/;