next if substr($str1, $start, $matchLen) =~ /^-+$/;