next if ! matchLen || substr($str1, $start, $matchLen) !~ /[^-]/;