perl -nle 'print "\t"x($1-1), $2 if /^=head(\d)\s+(.*)/' /somepath/perlop.pod

Actually, I like the =item's to be in there too, and with that, =over comes in handy too. So full pod parsing is not really overkill :)
Why the =item's? Because in many cases they provide a list of available function/method calls.

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]