while () { $clipsobt++ if /\bclip\b/i; }