my $lamb;
$lamb->{data}[0] = 'wolf';
my $mary = "Little Rabbit Foo Foo";
my $template = '$mary had a little $lamb->{data}[0].';
$text = eval qq{"$template"};
print $text;
[download]

You're treading down a dangerous path. Why don't you use an existing template system instead of rolling out your own?