Help for this page
$string =~ s/(?<!^Y?)X//g;
Variable length lookbehind not implemented in regex; marked by <-- HER +E in m/(?<!^Y?)X <-- HERE / at Some/File.pm line ###