#!/usr/bin/perl -w
# testpod.pl
use strict;

=head1 test
to be stripped
=cut

print "everything fine\n";

=head1 another test
to be stripped

=cut

print "end\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Stripper;
my $Stripper = new Pod::Stripper();
$Stripper->parse_from_filehandle(\*STDIN) unless (@ARGV);
for my $ARGV (@ARGV) {
    $Stripper->parse_from_file($ARGV);
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

print "end\n";

##</code><code>##

#!/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;
}

##</code><code>##

my $var ='
=test
';

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|