if (index ($sline, "pattern") > "-1")