#! /usr/bin/perl -w

use strict;

my $x1 = 'aaa bbb cc';
my $x2 = 'aa, bb, cc';

print join( '-', split(/[\s,]+/, $x1)), "\n";  
print join( '-', split(/[\s,]+/, $x2)), "\n";