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

# TEST for '..' (and '...') operators
#
# Description of the range operator is found
# at the END of this file.
#

print "TEST 1: Skipping perldoc comments.\n----------------\n";

while (<DATA>) {
    next if (/^=head/ .. /^=cut/);
    print $_;
}


__DATA__

# pretend this is a config file
var = 0;
var1 = 0;

=head
this should be skipped by
the /^=head/ .. /^=cut/ range
operator.

some paragraph here
some paragraph here
=cut

var2 = 0;