while ($sequence=<FILE>){
    
    foreach($sequence =~ /$substring/g) { 
   #print "malakas\n";
            $count += () = /$substring/g;