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