http://www.perlmonks.org?node_id=404119


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.