highlighting for words in perl