function perldoc() { command perldoc -n less "$@" |man -l -; }

##</code><code>##

GROFF_NO_SGR=1 perldoc -oman ...