$str =~ s/(?<=\|)9[0-9](?=\|)/X/g;