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