while(...) { s/.../.../; print OUT; }