openmy$FH,"<","$INPUT_DIR/$input_file"ordie"Couldn't Open File $input_file: $!";while(<FH>){chomp;lastif/\|/;# last to exit the while loop, or die to exit the programmy($s,$a,$c,$r)=(split/ [, \t]/,$_);}