if (/$word/i) {
    print unless (++$matches{lc $word} > 1)	
}