#!/usr/bin/perl -w
use strict;
my $inside_pod = 0;
while (<>){
    if ($inside_pod) { 
	  $inside_pod = ! /^=cut/;
	  next;
    }
    else {
	  $inside_pod = /^=\w/;
    }
    print unless $inside_pod;
}