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.
|
---|
In Section
Seekers of Perl Wisdom