TT#24097 Use a regex for split

Change-Id: Id8543d7d792e35a736c770fc87a20fa399d68bad

utils/rtpengine-ng-client

@@ -49,19 +49,19 @@ my $cmd = shift(@ARGV) or die;
 
 my %packet = (command => $cmd);
 
-for my $x (split(',', 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,DTLS,via-branch,media address')) {
+for my $x (split(/,/, 'from-tag,to-tag,call-id,transport protocol,media address,ICE,address family,DTLS,via-branch,media address')) {
 	defined($options{$x}) and $packet{$x} = \$options{$x};
 }
-for my $x (split(',', 'TOS,delete-delay')) {
+for my $x (split(/,/, 'TOS,delete-delay')) {
 	defined($options{$x}) and $packet{$x} = $options{$x};
 }
-for my $x (split(',', 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching')) {
+for my $x (split(/,/, 'trust address,symmetric,asymmetric,force,strict source,media handover,sip source address,reset,port latching')) {
 	defined($options{$x}) and push(@{$packet{flags}}, $x);
 }
-for my $x (split(',', 'origin,session connection')) {
+for my $x (split(/,/, 'origin,session connection')) {
 	defined($options{'replace-' . $x}) and push(@{$packet{replace}}, $x);
 }
-for my $x (split(',', 'rtcp-mux,SDES')) {
+for my $x (split(/,/, 'rtcp-mux,SDES')) {
 	defined($options{$x}) && ref($options{$x}) eq 'ARRAY'
 		and $packet{$x} = $options{$x};
 }