while ($value =~ /$search/gi) {
    $contains++;
}