my @phrases = <foo bar>; 
print join "|", map { "\\s$_\\s" } map { quotemeta } @phrases;'
__END__
\sfoo\s|\sbar\s