use strict;
use warnings;

while (<DATA>) {
    chomp;
    my @Names = split ',';
    
    print "@Names\n";
}

__DATA__
Peter,Fred,Joe
Sam,Anna,Sue

##</code><code>##

Peter Fred Joe
Sam Anna Sue