perl -i -p -e '$_ = <> until $ok || m/RE/; $ok=1' foo