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


in reply to Re: case sensitive addition
in thread case sensitive addition

  Use the following code to match the case insensitive. 
if($line=~/$pattern/i) { $found++ }