open FH, "$INPUT_DIR/$input_file" or die "Couldn't Open File: $!";
 
while ( <FH> ) {
 
chomp;
 
my ($s, $a, $c, $r) = (split / [, \t]/, $_);

##</code><code>##

process:
 
clientserver,00001,AIT,SOURCE
 clientserver        00001     AIT       SOURCE
 
error:
 
clientserve|00001|AIT|SOURCE