Select Code to Download

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

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