Select Code to Download

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

foo
bar
baz

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