lc($index = index($str, 'CO', $index)) =~ /^-/