#!/usr/bin/perl -w
 
use strict;
 
while (my $line=<DATA>) {
  chomp $line;
  my @f=split(",",$line);
  my $fmt = sprintf("%s","%10s" x 5) . "\n";
  printf $fmt,@f;
}
 
__END__
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ
123456,12/01/2004,ABCDEFG,12345 ,XYZ


##</code><code>##

    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ
    12345612/01/2004   ABCDEFG    12345        XYZ