Just because it's lying wide open... You've got a syntax error, ((close your parens :)

And because I can't help this either... ( not simpler, just uglier... or is it? )

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

Enjoy!

--
Casey