$string = "1,2,3\n,4,5,6\n7,8,9";
$clean =~ s/,//g;
@array = split(/\n/,$clean);
foreach( @array ) {
   print $_,"\n";
}