use strict;
my ($START, $STOP) = qw(START STOP);
while (<DATA>) {
  my $where = /$START/../$STOP/;
  print (($where and $where > 1 and $where !~ /E0/) ? "PRINTING\n" : "not printing");
}
__END__