my @parts = split /\|/, $line;