open(IN, "<$file") || die "Can't open $file!\n";

while(<IN>) {
chomp($_);
my ($id, $stdate, $enddate, $person) = split(/\|\|/, $_);
}