my $foo = 'text ... [% TTcode %] ... text';