#!/usr/bin/perl -w

use strict;

my $start = qr{^.*#\s*ifdef\s+pod};
my $stop  = qr{^.*#\s*endif\s*/\*\s*pod\s*\*/};
my $trim  = qr{^\s*};
my $verb  = qr{^\s*=v\s};
my $show  = 0;

while ( my $line = <DATA> ) {
    if ( $line =~ $start ) {
        $show = 1;
        next;
    }
    if ( $line =~ $stop ) {
        $show = 0;
        next;
    }
    if ($show) {
        chomp($line);
        $line =~ s/$trim//;
        $line =~ s/$verb//;
        print $line, "\n";
    }
}

__DATA__
    This could be anything
    #ifdef pod
    =head2 title
    blah, blah,blah

    =v  indent 1
    #endif /* pod */
    This could be anything, too