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