$|=1;$_='000';do{print$_++,$/}while<>!~u