Fix $/ being interpolated into a regular expression

MANIFEST

@@ -38,6 +38,7 @@ t/prepend_file.t
 t/pseudo.t
 t/read_dir.t
 t/slurp.t
+t/split.t
 t/stdin.t
 t/stringify.t
 t/tainted.t

lib/File/Slurp.pm

@@ -127,7 +127,13 @@ sub read_file {
 	if ($want_array || $opts->{array_ref}) {
 		use re 'taint';
 		my $sep = $/;
-		$sep = '\n\n+' if defined $sep && $sep eq '';
+		if( defined $sep ) {
+			if( $sep eq '' ) {
+				$sep = '\n\n+' ;
+			} else {
+				$sep = quotemeta $sep;
+			}
+		};
 		# split the buffered content into lines
 		my @lines = length(${$buf_ref}) ?
 			${$buf_ref} =~ /(.*?$sep|.+)/sg : ();

t/split.t

@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+use File::Basename ();
+use File::Spec ();
+use lib File::Spec->catdir(File::Spec->rel2abs(File::Basename::dirname(__FILE__)), 'lib');
+use FileSlurpTest qw(temp_file_path);
+
+use File::Slurp qw(slurp write_file);
+use Test::More;
+
+plan tests => 1;
+
+my $data = <<TEXT;
+line 1{{{{more text
+TEXT
+
+my $file = temp_file_path();
+
+$data =~ s!\s*$!!;
+
+write_file($file, $data);
+
+$/ = '{{{{';
+
+my @lines = slurp($file);
+is_deeply(\@lines, ['line 1{{{{', 'more text'], 'slurp multiline regex');
+
+unlink $file ;