unpod foo.pm
cat foo.pm | unpod

##</code><code>##

#!/usr/bin/perl

# filter takes a filename as arg (otherwise stdin) and sends pod-stripped content to stdout.

use Pod::Parser;
package MyParser;
use base Pod::Parser;

sub initialize {
  my $self = shift;
  $self->parseopts(-want_nonPODs=>1);
}
sub preprocess_paragraph {
    my ($self, $text, $line_num) = @_;
    print $text if $self->cutting;
    return $text;
}

package main;

my $parser = new MyParser();
$parser->parse_from_file($ARGV[0], '/dev/null');