use strict;
use warnings;
use HTML::Template;

my $data = 'fred has <tmpl_var color> eyes';

my $template = HTML::Template->new(
    scalarref => \$data,
);

$template->param(
    color => 'brown',
);

print $template->output;