I seem to remember some time back seeing a way to get perl to always ignore case when pattern matching within a script but can not find how to do it? As I recall, it was someting you could set at the begining of the script so that you don't have to use /i for each regex.