/.*,.*,.*,.*,.*,.*,.*,.*,(*),.*/  
       my $X = $1  

##</code><code>##

    chomp( my($line)=$_ ) ;

##</code><code>##

my ($X, $Y, $A, $B, $C, $D);
while(<DATAIN>)