[{textfield:customnodetitledefinition,12}]
# or, in case that don't work (i don't recall, i'll have to check)
[{setvar:customnodetitledefinition,12}]

##</code><code>##

my $V=getVars $USER;

my $pt = (exists $$V{customnodetitledefinition} and
          defined $$V{customnodetitledefinition} )?
         $$V{customnodetitledefinition} : undef;

return qq{<TITLE>$$NODE{title}</TITLE>} unless $pt;

$pt =~ s/\%T/$$NODE{title}/;
$pt =~ s/\%N/$$NODE{node_id}/;
$pt =~ s/\%D/$$NODE{createtime}/;

return qq{<TITLE>$pt</TITLE>};