perl -ne 'print if (/_R_E_G_E_X/ ? ($c = _L_I_N_E_S) : (--$c > 0))' _F_I_L_E_S
