Here's the short_description global you may be able to modify to suit the title.

sub {
my $tags = shift;
my $desc = $tags->{Description} or return "No description on this template";
length $desc <100 and return $desc;
my $short = substr ($desc, 0, 100);
$short =~ s/\s\S+?$//;
$short .= " ...";
return $short;
}

Regards

minesite