The above code works, but to make it even better You might want to add 2 things.

To remove "plus" which are ugly, and control characters that can mess up the listing,
add this line in the cleanup part of the above code:
$lastlinetemp[0] =~ s/\W/ /g;

To remove other non searches You can add the following line in the pod.cgi in the "pod_log_search"
subroutine to stop it from being logged:
unless (($pod_searchwords eq "0") or ($pod_searchwords =~ "1") or ($pod_searchwords =~ "26") or ($pod_searchwords =~ "76") or ($pod_searchwords =~ "cgi-bin"))