Select Code to Download

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

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