Re: making regex case insensitive

[marinersk]

Both preceding answers are excellent; one tells you how to find the answer, the other shows it to you.

I would add that if you are manually processing each element of the array, you may be doing it the hard way:

#!/usr/bin/perl
# testgreparray.pl - Check behavior of grep on arrays

use strict;

my @cmdrsp = (
    'This is a test.',
    'A booger a day keeps the doctor at bay.',
    'Blimey, laddy, it\'s a booger!'
);

if (grep(/booger/, @cmdrsp)) {
    print "Found it the easy way\n";
}

my @searsp = grep(/booger/, @cmdrsp);
my $seacnt = @searsp;
if ($seacnt) {
    print "Found it the hard way\n";
}