#reading data file
$filename = "your_data_file.dat";
open(DATA,"<$filename");
@line = <DATA>;
close(DATA);
foreach $line (@line) {
$line =~ s/\n//g;
($var1,$var2,$var3,$var4) = split("|",$line);
# doing your action here
}
Please try,
Enjoy!
htruong