srand;

 # This chooses a random line, and puts that line into
 # the var $line.
 rand($.) < 1 && ($line = $_) while <FILE>;
 
 # Now you can split it
 my @part = split(/\|/,$line);

 # And then do whatever else with it...
 print "$part[0] $part[1] $part[2] ... ";