if ($clnm ne ""){
$cnt = @parts = split(/\,/, $ clnm );
$clnm = "'";
for ($i = 0; $i < $cnt; $i++) {
$clnm = $clnm . $parts[$i];
($clnm = $clnm . "%','") if ($i < $cnt - 1);
}
$clnm = $clnm . "%'";
}
and then used it in

if ($clnm ne "") { $Where = $Where . "AND m.CLNAME LIKE $clnm %’ OR m.CLNAME IN ($clnm ) "; }.