DouKaku?

use strict;
use warnings;

use PPI;

=head1 NAME

decomment - strip comments/pods from code

=head1 SYNOPSIS

  decomment.pl <some.pl>

=head1 SEE ALSO

L<http://ja.doukaku.org/185/>

PPI L<http://search.cpan.org/~adamk/PPI-1.203/lib/PPI.pm>

=cut

if ( !$ARGV[0] ) {
  print "usage: $0 <some.pl>\n";
  exit 0;
}
# test data
my $testdata = "string with # :)"; # this is a comment;

# use PPI to strip comment from code
my $doc = PPI::Document->new($ARGV[0]);
$doc->prune(q/PPI::Token::Pod/);
$doc->prune(q/PPI::Token::Comment/);
print $doc->content;

__END__
this section is not a comment.