my @fields = $string =~ m/([^|]*)\|?/g;
$string && $string !~ /\|$/ && pop @fields;