perldoc -f index

if ( -1 != index lc $msg, lc $lidstring[$count] ){
    print "$msg found\n";
}
[download]