Perl：quotemetaの使い方

引数からすべての正規表現のメタ文字をバックスラッシュでエスケープしたものを返します。つまり、/[A-Za-z_0-9]/にマッチしない全ての文字の前にはロケールに関わらずバックスラッシュが前置されます。

print quotemeta('(\S+)\s'), "\n";
> \(\\S\+\)\\s