$string =~ s/(?<=\|)(?=\|)/X/g;