my $pat = <<'PATTERNEND';
\s
PATTERNEND

##</code><code>##

my $pat = <<PATTERNEND;
\\s
PATTERNEND

##</code><code>##

my $pat = <<"PATTERNEND";
\\s
PATTERNEND

##</code><code>##

my $re = qr/
\s
/x;