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