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