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