Select Code to Download

my $e = '\\'   # kind of escape char
my $s = '\'';  # this is a string to use for splitting
...
}
my $re = "(?<!\Q$e\E)\Q$s\E";
$split_re = qr/$re/s;