Just to expand a little on Beernut's post:

open (THEFILE, $theFile) || die "open $theFile $!\n";
[download]

Then use a while loop to process each line in the file:

while (<THEFILE>) {
   my @items = split (/|/, $_);
}
close (THEFILE);
[download]