if (/--*sl*e*e*p*=(\d+)/i) { $sleeptime = $1; next } if (/--*ex*i*t*/i) { $endfirst = 1; next } if (/--*ve*r*b*o*s*e*/i) { $verbose = 1; next } if (/--*he*l*p*/i) {