my @chunks = split /(?<!\\)\|/, $yourstring;