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