##### Get Keyword Variable #####	
   if ($txtfile[$i] =~ /\bKeyword:/) {       
    chomp ($keyword = $txtfile[$i]);
    $keyword =~ s/Keyword:           //;
	#print "$keyword\n";
   }