in reply to
making my suroutine and parts of my program case insensitive.
Change your first regex to /$_/ig. Note the i-modifier (which tells it to match case insensitively). Another option is to uc() or lc() all input data and then compare.
Results (303 votes),