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