- uri_unescape($ENV{QUERY_STRING}) =~ /^([\w\s:-]*)$/
+ uri_unescape($ENV{QUERY_STRING}) =~ /^([\w :-]+)\z/

- exec "perldoc -u $1|pod2html --header --title='$1'";
+ exec "perldoc -u $1|pod2html --header --title='$1' 2>/dev/null";