Have a look at PPI::Document, too:

#!/usr/bin/perl
use strict;
use warnings;

# Straight from the documention

use PPI;
  
# Load a document from a file
my $Document = PPI::Document->new('My/Module.pm');
  
# Strip out comments
$Document->prune('PPI::Token::Comment');

# Strip out Pod
$Document->prune('PPI::Token::Pod');

# Save the file
$Document->save('My/Module.pm.stripped');
[download]

Hth, Thomas

Udate: Added code to strip Pod

Following your tip, I installed PPI::Document via PPM to see if it would improve on the stripping relative to perltidy. However, this critical step did not work:

$Document = PPI::Document->new('Module.pm');

I guess there is some PPI::Document package I need to get. I'll continue this later.

Thanks.