my @tokens = split /\|/, $line;
print "@tokens[0..2]\n";