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