perlquestion Anonymous Monk Hi, i am reading a text file. and my
code looks like below: <c> open FH, "$INPUT_DIR/$input_file" or
die "Couldn't Open File: $!"; while ( <FH> ) { chomp; my ($s,
$a, $c, $r) = (split / [, \t]/, $_); </c> the split fucntion
process the comma and tab delimited now. Input file: <c>
process: clientserver,00001,AIT,SOURCE clientserver 00001 AIT
SOURCE error: clientserve|00001|AIT|SOURCE </c> split should die
if it finds the pipe and it should process if it finds comma or
tab delimited. 11