$|=1; for('000'..'999'){ print$_,$/; exit if<>=~u; }