use strict;

my %words;
open(FILE,"entities");
while(<FILE>){
	#my @temp = split("\t",$_);
	my $temp = $_;
	$temp =~ s/\n//ig;
	$words{lc($temp)} = 1;
}
my @entities = split(",",$ARGV[0]);
my @output = ();
foreach (@entities){
	if($words{lc($_)}){
		@output = (@output,$_." <span style=\"font:bold 12px arial;color:#333; background:#eee;\">&nbsp;in Connect</span>");
	}
	else{
		@output = (@output,$_);
	}
}
print join("~",@output);
