if($line=~/$pattern/i)
   {
         $found++
   }