open(my($fd),"./file") or die($!);
@a=map{split('|',$_)}<$fd>;
close($fd);

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/