my @field = split (/\|/, $string);