my @fields   = split /\|/;