$string=~/([^Y]+)X/$1/g; [download]
In reply to Re: Variable-width negative lookbehind by matija in thread Variable-width negative lookbehind by dragonchild