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

##</code><code>##

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