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