my @fields = split /\|/, $string.'|x'; pop @fields;