if(open(MYFILE,"htmlfile.txt"))
{
   $line =<MYFILE>;
   @array = ($line =~ m/<.[^>]*>/g); 
   print"ARRAY iS  @array\n";
   for($i=0;$i<@array;$i++){
    print"The Element $i is $array[$i]\n";
  }
for($j =0;$j<@array;$j++){
    for($k=$j+1;$k<@array;$k++){
   
     if($array[$j] eq $array[$k]){
    
       print" substring($array[$j],$array[$k])\n";
       
  }
   }
    }

   
  }