$count = () = $string =~ /-\d+/g;