my ($numbers) = 'cms 111,222' =~ /^cms[= ]?([0-9]+(?:[ ,][0-9]+)*)\z/;
my @numbers = $numbers =~ /([0-9]+)/g;