my @fields = split(/\|/,$string,$string =~ tr/|/|/ + 1);