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