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