use strict;
$_ = "|90|93|foo|bar|91|92|95|96|906|";
s{
    \|9
    [0-6]+
    (?=\|)
}
{|X}xg;
print $_,"\n";