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