perl variable hightlighting