my ($START, $STOP) = qw(START STOP);
while (<DATA>) {
  print (($where = /$START/../$STOP/ and $where !~ /^1$|E/) ? "PRINTING" : "not printing";
}