$string =~ m[
	,           # a comma
	\s+         # followed by at least one space
	(           # capture
	      \d+   # one or more digits
	)
];