Mine

alias compare {
  var %strings asd5f asd9f bgh4j hello bill shf5x jim hrwg4j,%x 1,%y 1,%matches
  tokenize 32 %strings
  while ($mid($1,%x,1)) {
    var %regex %regex $+ $iif($v1 isalpha,[a-z],$iif($v1 isnum,\d,\ $+ $v1))
    inc %x
  }
  while ($(,$+($,%y))) {
    if ($regex($v1,%regex)) inc %matches
    inc %x
  }
  echo -a Matches: $+(%matches,/,$({,%x)) -- $calc(%matches / $({,%x) * 100) $+ %
}