[~/tmp]$ touch foo,bar
[~/tmp]$ touch baz
[~/tmp]$ touch foo,baz
[~/tmp]$ touch a b c
[~/tmp]$ perl test.pl
.
foo,bar foo,baz