set isContained [regexp ***=$needle $haystack]