find /your/perl/lib/path -name '*.pm' | \
xargs perl -ni -e 'print unless /^=\w+/ .. /^=cut/'