Perl index function ignore case

Shell Programming and Scripting
1

Hi,
Is there any way of ignoring case in Perl's index function?

Thanks.

2 
my $str = 'Mary had a little Lamb';
my $search = 'LAMB';
if (index lc($str),lc($search) > -1) {
    print "Found [$search] in [$str]\n";
}
3

Thanks man :).