if ($line =~ /$partialword/i){
   #SUBSTRING FOUND!
   }