The following sub should do it (rough guess, untested, my Perl skills are slim). You also need:
sub SearchTitle {
my ($string) = @_;
my ($name, $freeName, @found);
foreach $name (&AllPagesList()) {
if ($name =~ /$string/i) {
push(@found, $name);
} elsif ($FreeLinks && ($name =~ m/_/)) {
$freeName = $name;
$freeName =~ s/_/ /g;
if ($freeName =~ /$string/i) {
push(@found, $name);
}
}
}
return @found;
}
I just realized the Backlinks does exactly what I wanted.. Now if I could split the search results page (including the index) on multiple pages with a "Previous 50 - Next 50"... perhaps will come... :-)