perl -E '
my $x = "foo+bar+baz";
my $y = "+";
my $z = qr/\Q$y\E/;
say for split $z, $x;
'

##</code><code>##

foo
bar
baz

##</code><code>##

say for split /\Q$y\E/, $x;