my $string = 'fooXbarXbazXboff';
my $separator = 'X';
my $replace = '<REPLACE>';

$string =~ s{ \Q$separator\E }{$replace}xmsg;
dd $string;