http://www.perlmonks.org?node_id=11107406

perl -le'$_=`perldoc -T perlfaq4`,s/^.*N;(.*?)E.*$/$1/s,print'